diff options
| author | Greg Sabino Mullane | 2010-02-02 16:09:42 +0000 |
|---|---|---|
| committer | Greg Sabino Mullane | 2010-02-02 16:09:42 +0000 |
| commit | 388e4d599b16a60039daba21db6c4d7198853a33 (patch) | |
| tree | 2a5bf6c08561b36415689ba07205d7e633b3a200 /check_postgres.pl | |
| parent | 543cf9d1f39177a5b07643d4c86b5377829559a5 (diff) | |
Spelling fixes, version bump in preparation for 2.13.1 release.
Diffstat (limited to 'check_postgres.pl')
| -rwxr-xr-x | check_postgres.pl | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/check_postgres.pl b/check_postgres.pl index b479d7819..3ebac69ad 100755 --- a/check_postgres.pl +++ b/check_postgres.pl @@ -4802,15 +4802,15 @@ SQL warn "Query processing failed:\n$line\nfrom $SQL\n"; next; } - my ($cschema,$cname,$tschema,$tname,$col,$cdef) = ($6,$7,$2,$3,$4,$8); + my ($cschema,$cname,$tschema,$tname,$ccol,$cdef) = ($6,$7,$2,$3,$4,$8); ## 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; + push @oldcols => $ccol; + $ccol = join ' ' => sort @oldcols; } - $thing{$x}{colconstraints}{"$cschema.$cname"} = ["$tschema.$tname", $col, $cdef]; + $thing{$x}{colconstraints}{"$cschema.$cname"} = ["$tschema.$tname", $ccol, $cdef]; } } } @@ -7958,7 +7958,7 @@ Items not specifically attributed are by Greg Sabino Mullane. =over 4 -=item B<Version 2.13.1> +=item B<Version 2.13.1> (February 2, 2010) Fix bug preventing column constraint differences from 2 > 1 for same_schema from being shown. Allow aliases 'dbname1', 'dbhost1', 'dbport1',etc. |