r18418 - in /branches/upstream/libdbd-pg-perl/current: Changes META.yml Makefile.PL Pg.pm README SIGNATURE dbdimp.c
gregoa-guest at users.alioth.debian.org
gregoa-guest at users.alioth.debian.org
Tue Apr 8 19:51:28 UTC 2008
Author: gregoa-guest
Date: Tue Apr 8 19:51:27 2008
New Revision: 18418
URL: http://svn.debian.org/wsvn/?sc=1&rev=18418
Log:
[svn-upgrade] Integrating new upstream version, libdbd-pg-perl (2.5.1)
Modified:
branches/upstream/libdbd-pg-perl/current/Changes
branches/upstream/libdbd-pg-perl/current/META.yml
branches/upstream/libdbd-pg-perl/current/Makefile.PL
branches/upstream/libdbd-pg-perl/current/Pg.pm
branches/upstream/libdbd-pg-perl/current/README
branches/upstream/libdbd-pg-perl/current/SIGNATURE
branches/upstream/libdbd-pg-perl/current/dbdimp.c
Modified: branches/upstream/libdbd-pg-perl/current/Changes
URL: http://svn.debian.org/wsvn/branches/upstream/libdbd-pg-perl/current/Changes?rev=18418&op=diff
==============================================================================
--- branches/upstream/libdbd-pg-perl/current/Changes (original)
+++ branches/upstream/libdbd-pg-perl/current/Changes Tue Apr 8 19:51:27 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: branches/upstream/libdbd-pg-perl/current/META.yml
URL: http://svn.debian.org/wsvn/branches/upstream/libdbd-pg-perl/current/META.yml?rev=18418&op=diff
==============================================================================
--- branches/upstream/libdbd-pg-perl/current/META.yml (original)
+++ branches/upstream/libdbd-pg-perl/current/META.yml Tue Apr 8 19:51:27 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: branches/upstream/libdbd-pg-perl/current/Makefile.PL
URL: http://svn.debian.org/wsvn/branches/upstream/libdbd-pg-perl/current/Makefile.PL?rev=18418&op=diff
==============================================================================
--- branches/upstream/libdbd-pg-perl/current/Makefile.PL (original)
+++ branches/upstream/libdbd-pg-perl/current/Makefile.PL Tue Apr 8 19:51:27 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: branches/upstream/libdbd-pg-perl/current/Pg.pm
URL: http://svn.debian.org/wsvn/branches/upstream/libdbd-pg-perl/current/Pg.pm?rev=18418&op=diff
==============================================================================
--- branches/upstream/libdbd-pg-perl/current/Pg.pm (original)
+++ branches/upstream/libdbd-pg-perl/current/Pg.pm Tue Apr 8 19:51:27 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: branches/upstream/libdbd-pg-perl/current/README
URL: http://svn.debian.org/wsvn/branches/upstream/libdbd-pg-perl/current/README?rev=18418&op=diff
==============================================================================
--- branches/upstream/libdbd-pg-perl/current/README (original)
+++ branches/upstream/libdbd-pg-perl/current/README Tue Apr 8 19:51:27 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: branches/upstream/libdbd-pg-perl/current/SIGNATURE
URL: http://svn.debian.org/wsvn/branches/upstream/libdbd-pg-perl/current/SIGNATURE?rev=18418&op=diff
==============================================================================
--- branches/upstream/libdbd-pg-perl/current/SIGNATURE (original)
+++ branches/upstream/libdbd-pg-perl/current/SIGNATURE Tue Apr 8 19:51:27 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: branches/upstream/libdbd-pg-perl/current/dbdimp.c
URL: http://svn.debian.org/wsvn/branches/upstream/libdbd-pg-perl/current/dbdimp.c?rev=18418&op=diff
==============================================================================
--- branches/upstream/libdbd-pg-perl/current/dbdimp.c (original)
+++ branches/upstream/libdbd-pg-perl/current/dbdimp.c Tue Apr 8 19:51:27 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",
More information about the Pkg-perl-cvs-commits
mailing list