Author: turnstep
Date: Fri Jul 17 06:35:43 2009
New Revision: 13072
Modified:
DBD-Pg/trunk/Changes
DBD-Pg/trunk/META.yml
DBD-Pg/trunk/Makefile.PL
DBD-Pg/trunk/Pg.pm
DBD-Pg/trunk/README
DBD-Pg/trunk/lib/Bundle/DBD/Pg.pm
DBD-Pg/trunk/t/12placeholders.t
Log:
Add some debugging to track down odd problem.
RC 4
Modified: DBD-Pg/trunk/Changes
==============================================================================
--- DBD-Pg/trunk/Changes (original)
+++ DBD-Pg/trunk/Changes Fri Jul 17 06:35:43 2009
@@ -1,6 +1,6 @@
('GSM' is Greg Sabino Mullane, [email protected])
-2.13.1_2
+2.13.1_4
- Make quoting of int, floats, and names much safer. (CPAN bug #41565) [GSM]
- Return ints and bools-cast-to-number from the db as true Perlish numbers.
Modified: DBD-Pg/trunk/META.yml
==============================================================================
--- DBD-Pg/trunk/META.yml (original)
+++ DBD-Pg/trunk/META.yml Fri Jul 17 06:35:43 2009
@@ -1,6 +1,6 @@
--- #YAML:1.0
name : DBD-Pg
-version : 2.13.1_2
+version : 2.13.1_4
abstract : DBI PostgreSQL interface
author:
- Greg Sabino Mullane <[email protected]>
@@ -39,10 +39,10 @@
provides:
DBD::Pg:
file : Pg.pm
- version : 2.13.1_2
+ version : 2.13.1_4
Bundle::DBD::Pg:
file : lib/Bundle/DBD/Pg.pm
- version : 2.13.1_2
+ version : 2.13.1_4
keywords:
- Postgres
Modified: DBD-Pg/trunk/Makefile.PL
==============================================================================
--- DBD-Pg/trunk/Makefile.PL (original)
+++ DBD-Pg/trunk/Makefile.PL Fri Jul 17 06:35:43 2009
@@ -7,7 +7,7 @@
use 5.006001;
## No version.pm for this one, as the prereqs are not loaded yet.
-my $VERSION = '2.13.1_3';
+my $VERSION = '2.13.1_4';
my $lib;
BEGIN {
Modified: DBD-Pg/trunk/Pg.pm
==============================================================================
--- DBD-Pg/trunk/Pg.pm (original)
+++ DBD-Pg/trunk/Pg.pm Fri Jul 17 06:35:43 2009
@@ -17,7 +17,7 @@
{
package DBD::Pg;
- use version; our $VERSION = qv('2.13.1_2');
+ use version; our $VERSION = qv('2.13.1_4');
use DBI ();
use DynaLoader ();
@@ -1739,7 +1739,7 @@
=head1 VERSION
-This documents version 2.13.1_2 of the DBD::Pg module
+This documents version 2.13.1_4 of the DBD::Pg module
=head1 DESCRIPTION
Modified: DBD-Pg/trunk/README
==============================================================================
--- DBD-Pg/trunk/README (original)
+++ DBD-Pg/trunk/README Fri Jul 17 06:35:43 2009
@@ -3,7 +3,7 @@
===================================================
WARNING!!
-THIS IS A TEST VERSION (2.13.1_2) AND SHOULD BE USED
+THIS IS A TEST VERSION (2.13.1_4) AND SHOULD BE USED
FOR TESTING PURPOSES ONLY. PLEASE USE A STABLE
VERSION (no underscore) BY VISITING:
@@ -15,7 +15,7 @@
DESCRIPTION:
------------
-This is version 2.13.1_2 of DBD::Pg, the Perl interface to Postgres using DBI.
+This is version 2.13.1_4 of DBD::Pg, the Perl interface to Postgres using DBI.
The web site for this interface, and the latest version, can be found at:
http://search.cpan.org/dist/DBD-Pg/
Modified: DBD-Pg/trunk/lib/Bundle/DBD/Pg.pm
==============================================================================
--- DBD-Pg/trunk/lib/Bundle/DBD/Pg.pm (original)
+++ DBD-Pg/trunk/lib/Bundle/DBD/Pg.pm Fri Jul 17 06:35:43 2009
@@ -4,7 +4,7 @@
use strict;
use warnings;
-$VERSION = '2.13.1_2';
+$VERSION = '2.13.1_4';
1;
Modified: DBD-Pg/trunk/t/12placeholders.t
==============================================================================
--- DBD-Pg/trunk/t/12placeholders.t (original)
+++ DBD-Pg/trunk/t/12placeholders.t Fri Jul 17 06:35:43 2009
@@ -350,11 +350,17 @@
}
$prefix = 'Invalid float value fails when quoting with SQL_FLOAT';
+## This is temporary to help track down a failing test
+use Data::Dumper;
for my $float ('3abc','123abc','','123e+04e+34','NaNum','-infinitee') {
$t = "$prefix (value=$float)";
$val = -1;
eval { $val = $dbh->quote($float, SQL_FLOAT); };
- like ($@, qr{Invalid number.*}, $t);
+ like ($@, qr{Invalid number}, $t);
+ diag Dumper $@;
+ my $foo = $@;
+ $foo =~ s/(.)/"$1(".ord($1).")"/ge;
+ diag $foo;
is ($val, -1, $t);
}
