r18420 - in /trunk/libdbd-pg-perl: Changes META.yml Makefile.PL Pg.pm README SIGNATURE dbdimp.c debian/changelog

gregoa-guest at users.alioth.debian.org gregoa-guest at users.alioth.debian.org
Tue Apr 8 19:52:57 UTC 2008


Author: gregoa-guest
Date: Tue Apr  8 19:52:56 2008
New Revision: 18420

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=18420
Log:
New upstream release.

Modified:
    trunk/libdbd-pg-perl/Changes
    trunk/libdbd-pg-perl/META.yml
    trunk/libdbd-pg-perl/Makefile.PL
    trunk/libdbd-pg-perl/Pg.pm
    trunk/libdbd-pg-perl/README
    trunk/libdbd-pg-perl/SIGNATURE
    trunk/libdbd-pg-perl/dbdimp.c
    trunk/libdbd-pg-perl/debian/changelog

Modified: trunk/libdbd-pg-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdbd-pg-perl/Changes?rev=18420&op=diff
==============================================================================
--- trunk/libdbd-pg-perl/Changes (original)
+++ trunk/libdbd-pg-perl/Changes Tue Apr  8 19:52:56 2008
@@ -1,6 +1,11 @@
 ('GSM' is Greg Sabino Mullane, greg at turnstep.com)
 
-2.5.0 Released March 23, 2008
+2.5.1 Released April 7, 2008
+
+	- Correctly handle negative PID numbers on Win32 systems when
+		generating prepared statement names (CPAN bug # 34738) [GSM]
+
+2.5.0 Released March 23, 2008 (subversion r10990)
 
 	- Add pg_enum_values to $dbh->column_info()
 		[Dave Rolsky] (CPAN ticket #34351)

Modified: trunk/libdbd-pg-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdbd-pg-perl/META.yml?rev=18420&op=diff
==============================================================================
--- trunk/libdbd-pg-perl/META.yml (original)
+++ trunk/libdbd-pg-perl/META.yml Tue Apr  8 19:52:56 2008
@@ -1,6 +1,6 @@
 --- #YAML:1.0
 name                  : DBD-Pg
-version               : 2.5.0
+version               : 2.5.1
 abstract              : DBI PostgreSQL interface
 author:              
   - Greg Sabino Mullane <greg at turnstep.com>
@@ -34,7 +34,7 @@
 provides:
   DBD::Pg:
     file              : Pg.pm
-    version           : 2.5.0
+    version           : 2.5.1
 
 keywords:
   - Postgres

Modified: trunk/libdbd-pg-perl/Makefile.PL
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdbd-pg-perl/Makefile.PL?rev=18420&op=diff
==============================================================================
--- trunk/libdbd-pg-perl/Makefile.PL (original)
+++ trunk/libdbd-pg-perl/Makefile.PL Tue Apr  8 19:52:56 2008
@@ -1,4 +1,4 @@
-# $Id: Makefile.PL 10988 2008-03-23 16:44:35Z turnstep $
+# $Id: Makefile.PL 11055 2008-04-07 16:46:23Z turnstep $
 
 use ExtUtils::MakeMaker;
 use Config;
@@ -7,7 +7,7 @@
 use 5.006001;
 
 ## No version.pm for this one, as the prereqs are not loaded yet.
-my $VERSION = '2.5.0';
+my $VERSION = '2.5.1';
 
 my $lib;
 BEGIN {

Modified: trunk/libdbd-pg-perl/Pg.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdbd-pg-perl/Pg.pm?rev=18420&op=diff
==============================================================================
--- trunk/libdbd-pg-perl/Pg.pm (original)
+++ trunk/libdbd-pg-perl/Pg.pm Tue Apr  8 19:52:56 2008
@@ -1,5 +1,5 @@
 # -*-cperl-*-
-#  $Id: Pg.pm 10988 2008-03-23 16:44:35Z turnstep $
+#  $Id: Pg.pm 11055 2008-04-07 16:46:23Z turnstep $
 #
 #  Copyright (c) 2002-2008 Greg Sabino Mullane and others: see the Changes file
 #  Portions Copyright (c) 2002 Jeffrey W. Baker
@@ -17,7 +17,7 @@
 {
 	package DBD::Pg;
 
-	use version; our $VERSION = qv('2.5.0');
+	use version; our $VERSION = qv('2.5.1');
 
 	use DBI ();
 	use DynaLoader ();
@@ -362,23 +362,20 @@
 
 	sub ping {
 		my $dbh = shift;
-		local $SIG{__WARN__} = sub { } if $dbh->{PrintError};
-		local $dbh->{RaiseError} = 0 if $dbh->{RaiseError};
+		local $SIG{__WARN__} = sub { } if $dbh->FETCH('PrintError');
 		my $ret = DBD::Pg::db::_ping($dbh);
 		return $ret < 1 ? 0 : $ret;
 	}
 
 	sub pg_ping {
 		my $dbh = shift;
-		local $SIG{__WARN__} = sub { } if $dbh->{PrintError};
-		local $dbh->{RaiseError} = 0 if $dbh->{RaiseError};
+		local $SIG{__WARN__} = sub { } if $dbh->FETCH('PrintError');
 		return DBD::Pg::db::_ping($dbh);
 	}
 
 	sub pg_type_info {
 		my($dbh,$pg_type) = @_;
-		local $SIG{__WARN__} = sub { } if $dbh->{PrintError};
-		local $dbh->{RaiseError} = 0 if $dbh->{RaiseError};
+		local $SIG{__WARN__} = sub { } if $dbh->FETCH('PrintError');
 		my $ret = DBD::Pg::db::_pg_type_info($pg_type);
 		return $ret;
 	}
@@ -1411,7 +1408,7 @@
       45 => ["SQL_TABLE_TERM",                      "table"                   ],
       46 => ["SQL_TXN_CAPABLE",                     2                         ],
       72 => ["SQL_TXN_ISOLATION_OPTION",            15                        ],
-      47  => ["SQL_USER_NAME",                      $dbh->{CURRENT_USER}      ],
+      47 => ["SQL_USER_NAME",                       $dbh->{CURRENT_USER}      ],
 
 ## Supported SQL
 
@@ -1659,7 +1656,7 @@
 
 =head1 VERSION
 
-This documents version 2.5.0 of the DBD::Pg module
+This documents version 2.5.1 of the DBD::Pg module
 
 =head1 SYNOPSIS
 

Modified: trunk/libdbd-pg-perl/README
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdbd-pg-perl/README?rev=18420&op=diff
==============================================================================
--- trunk/libdbd-pg-perl/README (original)
+++ trunk/libdbd-pg-perl/README Tue Apr  8 19:52:56 2008
@@ -1,11 +1,11 @@
 DBD::Pg  --  the DBI PostgreSQL interface for Perl
 
-# $Id: README 10988 2008-03-23 16:44:35Z turnstep $
+# $Id: README 11055 2008-04-07 16:46:23Z turnstep $
 
 DESCRIPTION:
 ------------
 
-This is version 2.5.0 of DBD-Pg.  The web site for this interface is at:
+This is version 2.5.1 of DBD-Pg.  The web site for this interface is at:
 
 	http://search.cpan.org/dist/DBD-Pg/
 

Modified: trunk/libdbd-pg-perl/SIGNATURE
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdbd-pg-perl/SIGNATURE?rev=18420&op=diff
==============================================================================
--- trunk/libdbd-pg-perl/SIGNATURE (original)
+++ trunk/libdbd-pg-perl/SIGNATURE Tue Apr  8 19:52:56 2008
@@ -15,19 +15,19 @@
 Hash: RIPEMD160
 
 SHA1 e4bbe8e3845d0a18ad4603cf6a09c8187419efbd .perlcriticrc
-SHA1 5783c528df7314e08e3a7e7455eaf77e99f020d1 Changes
+SHA1 3ddd9ec75240674ceb83595efa880f7299dbffb5 Changes
 SHA1 413251e7c544b2c00d18749f6b572a718a1c3a2f MANIFEST
 SHA1 d7c42da45397de439a6096058d01fa29575c8b52 MANIFEST.SKIP
-SHA1 2496e495176223c70949d6f00175eeb6751e2019 META.yml
-SHA1 a93ad6968698a6cadc5e37d4eede247eb33b2f35 Makefile.PL
+SHA1 cd85e310cb720c6a89517794f8df4f2c02df35e0 META.yml
+SHA1 686fe6956c76eb37f1f885d23decf73d3eb564fc Makefile.PL
 SHA1 11fc65245a64a3be04e8a1aeed17849e476c4711 Pg.h
-SHA1 5d6a4e4a49f0bfaadc7b854e008c2663d7dcc346 Pg.pm
+SHA1 25952f794c845b26255a8284a5357324ab58ac7a Pg.pm
 SHA1 4aa6f624317b3d5bcf67bb3748c8ca733edfcc50 Pg.xs
-SHA1 1b8278986dabf85f8110901383e26399c080a9ce README
+SHA1 7c4163d86f81e81285c88e374e912b8f75c47573 README
 SHA1 187281b6aed5c1f56fd0183c7ce4fe58b71282ea README.dev
 SHA1 968d5fad61bce160b31a9cb1a21dd240b9df930f README.win32
 SHA1 0a65051689ffee85bc401ac815ac3a89e203d891 TODO
-SHA1 c1bb6ed73b3d3b1f64fb54b92bb34f246bcc7959 dbdimp.c
+SHA1 bd36637c8d70b941635976a1b26767db92d2b2b2 dbdimp.c
 SHA1 38a3247078d2ababf659b30bcd2fdf7155330c19 dbdimp.h
 SHA1 6c33bcf138e577722283bef02fceb8cbce4d100d dbivport.h
 SHA1 88c44732cb614e916ae8aeff2c2f2faedbfd8e9a quote.c
@@ -63,7 +63,7 @@
 SHA1 f07cd5ecaeb854c81ceb9206364979cf607e6546 win32.mak
 -----BEGIN PGP SIGNATURE-----
 
-iEYEAREDAAYFAkfmioAACgkQvJuQZxSWSsh+PwCgk3HIIuO/yLhqoiRcowpXM+ui
-XgcAoL3IXgVJFz5Lt9YDgo4rKCGtng8A
-=z8xY
+iEYEAREDAAYFAkf6UHYACgkQvJuQZxSWSshbiACdEtGiPbNs3Sa+zDoV4UJ6Tn9l
+RLYAmwdgBQJbMm4ZXRMIew63wnDomzMi
+=x6uD
 -----END PGP SIGNATURE-----

Modified: trunk/libdbd-pg-perl/dbdimp.c
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdbd-pg-perl/dbdimp.c?rev=18420&op=diff
==============================================================================
--- trunk/libdbd-pg-perl/dbdimp.c (original)
+++ trunk/libdbd-pg-perl/dbdimp.c Tue Apr  8 19:52:56 2008
@@ -1,6 +1,6 @@
 /*
 
-  $Id: dbdimp.c 10961 2008-03-20 14:08:19Z turnstep $
+  $Id: dbdimp.c 11054 2008-04-07 16:45:39Z turnstep $
 
   Copyright (c) 2002-2008 Greg Sabino Mullane and others: see the Changes file
   Portions Copyright (c) 2002 Jeffrey W. Baker
@@ -1960,8 +1960,11 @@
 
 	Renew(imp_sth->prepare_name, 25, char); /* freed in dbd_st_destroy */
 
-	/* Name is simply "dbdpg_PID_#" */
-	sprintf(imp_sth->prepare_name,"dbdpg_%d_%d", imp_dbh->pid_number, imp_dbh->prepare_number);
+	/* Name is "dbdpg_xPID_#", where x is 'p'ositive or 'n'egative */
+	sprintf(imp_sth->prepare_name,"dbdpg_%c%d_%d",
+			(imp_dbh->pid_number < 0 ? 'n' : 'p'),
+			abs(imp_dbh->pid_number),
+			imp_dbh->prepare_number);
 
 	if (TRACE5)
 		TRC(DBILOGFP, "%sNew statement name (%s), oldprepare is %d\n",

Modified: trunk/libdbd-pg-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdbd-pg-perl/debian/changelog?rev=18420&op=diff
==============================================================================
--- trunk/libdbd-pg-perl/debian/changelog (original)
+++ trunk/libdbd-pg-perl/debian/changelog Tue Apr  8 19:52:56 2008
@@ -1,3 +1,9 @@
+libdbd-pg-perl (2.5.1-1) UNRELEASED; urgency=low
+
+  * New upstream release.
+
+ -- gregor herrmann <gregor+debian at comodo.priv.at>  Tue, 08 Apr 2008 21:51:55 +0200
+
 libdbd-pg-perl (2.5.0-1) unstable; urgency=low
 
   * New upstream release.




More information about the Pkg-perl-cvs-commits mailing list