Fitler out generic constraints in other place as well.

1 files changed, 8 insertions, 5 deletions

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];
 				}
 			}
 		}