diff options
| author | Max Khon <fjoe@FreeBSD.org> | 2003-08-12 12:37:03 +0000 |
|---|---|---|
| committer | Max Khon <fjoe@FreeBSD.org> | 2003-08-12 12:37:03 +0000 |
| commit | 7b6a1326ba6ffd0a52e7ded4764da8c22685ac93 (patch) | |
| tree | 9b9f429f91f7c59f7c2b78b42ac1ac54596878af /databases/p5-DBD-Pg | |
| parent | 764fec7aa6c9e341b91f707365440350d9794720 (diff) | |
| download | ports-7b6a1326ba6ffd0a52e7ded4764da8c22685ac93.tar.gz ports-7b6a1326ba6ffd0a52e7ded4764da8c22685ac93.zip | |
Notes
Diffstat (limited to 'databases/p5-DBD-Pg')
| -rw-r--r-- | databases/p5-DBD-Pg/Makefile | 2 | ||||
| -rw-r--r-- | databases/p5-DBD-Pg/files/patch-Pg.pm | 12 |
2 files changed, 7 insertions, 7 deletions
diff --git a/databases/p5-DBD-Pg/Makefile b/databases/p5-DBD-Pg/Makefile index 4731b9967537..d7cf0e3fc235 100644 --- a/databases/p5-DBD-Pg/Makefile +++ b/databases/p5-DBD-Pg/Makefile @@ -7,7 +7,7 @@ PORTNAME= DBD-Pg PORTVERSION= 1.22 -PORTREVISION= 1 +PORTREVISION= 2 CATEGORIES= databases perl5 MASTER_SITES= ${MASTER_SITE_PERL_CPAN} MASTER_SITE_SUBDIR= DBD diff --git a/databases/p5-DBD-Pg/files/patch-Pg.pm b/databases/p5-DBD-Pg/files/patch-Pg.pm index 0420d22effb1..4998328890de 100644 --- a/databases/p5-DBD-Pg/files/patch-Pg.pm +++ b/databases/p5-DBD-Pg/files/patch-Pg.pm @@ -6,7 +6,7 @@ my $version = DBD::Pg::pg_server_version($dbh); - $version =~ /^(\d+\.\d+)/; - return $1 < 7.3 ? "" : "pg_catalog."; -+ $version =~ s/^(\d+\.\d+).*/\1/; ++ $version =~ s/^(\d+\.\d+).*/$1/; + return $version < 7.3 ? "" : "pg_catalog."; } @@ -15,7 +15,7 @@ my $wh = ""; # (); $wh = join( " AND ", '', @wh ) if (@wh); my $version = DBD::Pg::pg_server_version($dbh); -+ $version =~ s/^(\d+\.\d+).*/\1/; ++ $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{ @@ -24,7 +24,7 @@ my $version = DBD::Pg::pg_server_version($dbh); - $version =~ /^(\d+)\.(\d)/; -+ $version =~ s/^(\d+\.\d+).*/\1/; ++ $version =~ s/^(\d+\.\d+).*/$1/; my @flds = qw/catname u.usename bc.relname/; - $flds[1] = 'n.nspname' unless ($1.$2 < 73); @@ -36,7 +36,7 @@ my $tbl_sql = (); my $version = DBD::Pg::pg_server_version($dbh); -+ $version =~ s/^(\d+\.\d+).*/\1/; ++ $version =~ s/^(\d+\.\d+).*/$1/; my $CATALOG = DBD::Pg::pg_use_catalog($dbh); if ( # Rules 19a @@ -44,7 +44,7 @@ sub tables { my($dbh) = @_; my $version = DBD::Pg::pg_server_version($dbh); -+ $version =~ s/^(\d+\.\d+).*/\1/; ++ $version =~ s/^(\d+\.\d+).*/$1/; my $SQL = ($version < 7.3) ? "SELECT relname AS \"TABLE_NAME\" @@ -54,7 +54,7 @@ - my $version = pg_server_version( $dbh ); + my $version = DBD::Pg::pg_server_version( $dbh ); -+ $version =~ s/^(\d+\.\d+).*/\1/; ++ $version =~ s/^(\d+\.\d+).*/$1/; my $con_query = $version < 7.3 ? "SELECT rcsrc FROM pg_relcheck WHERE rcname = '${table}_$col_name'" |