diff options
author | fjoe <fjoe@FreeBSD.org> | 2003-08-12 20:37:03 +0800 |
---|---|---|
committer | fjoe <fjoe@FreeBSD.org> | 2003-08-12 20:37:03 +0800 |
commit | 3fad19ff5da613955a79d4aea49572672d4978c7 (patch) | |
tree | 019512780f732a4aba402ebe6f97820166d43d26 /databases | |
parent | 7af172ebe0895bc4812cb9e86d071d1bb7ba0060 (diff) | |
download | freebsd-ports-gnome-3fad19ff5da613955a79d4aea49572672d4978c7.tar.gz freebsd-ports-gnome-3fad19ff5da613955a79d4aea49572672d4978c7.tar.zst freebsd-ports-gnome-3fad19ff5da613955a79d4aea49572672d4978c7.zip |
Silence warnings, bump port revision.
PR: 55483
Diffstat (limited to 'databases')
-rw-r--r-- | databases/p5-DBD-Pg-13/Makefile | 2 | ||||
-rw-r--r-- | databases/p5-DBD-Pg-13/files/patch-Pg.pm | 12 | ||||
-rw-r--r-- | databases/p5-DBD-Pg/Makefile | 2 | ||||
-rw-r--r-- | databases/p5-DBD-Pg/files/patch-Pg.pm | 12 |
4 files changed, 14 insertions, 14 deletions
diff --git a/databases/p5-DBD-Pg-13/Makefile b/databases/p5-DBD-Pg-13/Makefile index 4731b9967537..d7cf0e3fc235 100644 --- a/databases/p5-DBD-Pg-13/Makefile +++ b/databases/p5-DBD-Pg-13/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-13/files/patch-Pg.pm b/databases/p5-DBD-Pg-13/files/patch-Pg.pm index 0420d22effb1..4998328890de 100644 --- a/databases/p5-DBD-Pg-13/files/patch-Pg.pm +++ b/databases/p5-DBD-Pg-13/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'" 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'" |