[svn:DBD-Pg] r13072 - in DBD-Pg/trunk: . lib/Bundle/DBD t

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, greg-738XdyZ4GzZWk0Htik3J/[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 <greg-738XdyZ4GzZWk0Htik3J/[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);
 }