1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
|
--- ./Pg.pm.orig Tue Aug 12 02:03:06 2003
+++ ./Pg.pm Tue Aug 12 02:31:41 2003
@@ -70,8 +70,8 @@
sub pg_use_catalog {
my $dbh = shift;
my $version = DBD::Pg::pg_server_version($dbh);
- $version =~ /^(\d+\.\d+)/;
- return $1 < 7.3 ? "" : "pg_catalog.";
+ $version =~ s/^(\d+\.\d+).*/$1/;
+ return $version < 7.3 ? "" : "pg_catalog.";
}
1;
@@ -200,6 +200,7 @@
my $wh = ""; # ();
$wh = join( " AND ", '', @wh ) if (@wh);
my $version = DBD::Pg::pg_server_version($dbh);
+ $version =~ s/^(\d+\.\d+).*/$1/;
my $showschema = $version < 7.3 ? "NULL::text" : "n.nspname";
my $schemajoin = $version < 7.3 ? "" : "LEFT JOIN pg_catalog.pg_namespace n ON (n.oid = c.relnamespace)";
my $col_info_sql = qq{
@@ -258,10 +259,10 @@
my @wh = (); my @dat = (); # Used to hold data for the attributes.
my $version = DBD::Pg::pg_server_version($dbh);
- $version =~ /^(\d+)\.(\d)/;
+ $version =~ s/^(\d+\.\d+).*/$1/;
my @flds = qw/catname u.usename bc.relname/;
- $flds[1] = 'n.nspname' unless ($1.$2 < 73);
+ $flds[1] = 'n.nspname' unless ($version < 7.3);
for my $idx (0 .. $#attrs) {
next if ($flds[$idx] eq 'catname'); # Skip catalog
@@ -600,6 +601,7 @@
my $tbl_sql = ();
my $version = DBD::Pg::pg_server_version($dbh);
+ $version =~ s/^(\d+\.\d+).*/$1/;
my $CATALOG = DBD::Pg::pg_use_catalog($dbh);
if ( # Rules 19a
@@ -804,6 +806,7 @@
sub tables {
my($dbh) = @_;
my $version = DBD::Pg::pg_server_version($dbh);
+ $version =~ s/^(\d+\.\d+).*/$1/;
my $SQL = ($version < 7.3) ?
"SELECT relname AS \"TABLE_NAME\"
@@ -908,7 +911,8 @@
# by pg_constraint. To maintain compatibility, check
# version number and execute appropriate query.
- my $version = pg_server_version( $dbh );
+ my $version = DBD::Pg::pg_server_version( $dbh );
+ $version =~ s/^(\d+\.\d+).*/$1/;
my $con_query = $version < 7.3
? "SELECT rcsrc FROM pg_relcheck WHERE rcname = '${table}_$col_name'"
|
