From 543cf9d1f39177a5b07643d4c86b5377829559a5 Mon Sep 17 00:00:00 2001
From: Greg Sabino Mullane
Date: Mon, 1 Feb 2010 17:51:33 -0500
Subject: Fitler out generic constraints in other place as well.

---
 check_postgres.pl | 13 ++++++++-----
 1 file changed, 8 insertions(+), 5 deletions(-)

(limited to 'check_postgres.pl')

diff --git a/check_postgres.pl b/check_postgres.pl
index 05353e673..b479d7819 100755
--- a/check_postgres.pl
+++ b/check_postgres.pl
@@ -4803,12 +4803,15 @@ SQL
 						next;
 					}
 					my ($cschema,$cname,$tschema,$tname,$col,$cdef) = ($6,$7,$2,$3,$4,$8);
-					if (exists $thing{$x}{colconstraints}{"$cschema.$cname"}) {
-						my @oldcols = split / / => $thing{$x}{colconstraints}{"$cschema.$cname"}->[1];
-						push @oldcols => $col;
-						$col = join ' ' => sort @oldcols;
+					## No sense in grabbing "generic" constraints
+					if ($cname !~ /^\$\d+$/o) {
+						if (exists $thing{$x}{colconstraints}{"$cschema.$cname"}) {
+							my @oldcols = split / / => $thing{$x}{colconstraints}{"$cschema.$cname"}->[1];
+							push @oldcols => $col;
+							$col = join ' ' => sort @oldcols;
+						}
+						$thing{$x}{colconstraints}{"$cschema.$cname"} = ["$tschema.$tname", $col, $cdef];
 					}
-					$thing{$x}{colconstraints}{"$cschema.$cname"} = ["$tschema.$tname", $col, $cdef];
 				}
 			}
 		}
-- 
cgit v1.2.3