From: Guillaume Lelarge <guillaume@lelarge.info>
Date: Thu, 20 Jan 2011 22:00:06 +0000 (-0500)
Subject: Do not use tgisconstraint in Postgres 9.0+
X-Git-Tag: 2.16.0~8
X-Git-Url: http://git.postgresql.org/gitweb/?a=commitdiff_plain;h=09631c0f1d3a2b11d68f6a7b6387f7b3dd548ee2;p=check_postgres.git

Do not use tgisconstraint in Postgres 9.0+
---

diff --git a/check_postgres.pl b/check_postgres.pl
index 794df6e64..10b01dcc0 100755
--- a/check_postgres.pl
+++ b/check_postgres.pl
@@ -5267,7 +5267,9 @@ JOIN pg_class c ON (c.oid = tgrelid)
 JOIN pg_proc p ON (p.oid = tgfoid)
 WHERE NOT tgisconstraint
 }; ## constraints checked separately
-            $info = run_command($SQL, { dbuser => $opt{dbuser}[$x-1], dbnumber => $x } );
+            (my $SQL2 = $SQL) =~ s/NOT tgisconstraint/tgconstraint = 0/;
+
+            $info = run_command($SQL, { dbuser => $opt{dbuser}[$x-1], dbnumber => $x, version  => [ ">8.4 $SQL2" ] } );
             for $db (@{$info->{db}}) {
                 for my $r (@{$db->{slurp}}) {
                     my ($name,$table,$func,$args) = @$r{qw/ tgname relname proname proargtypes /};