Author: turnstep
Date: Tue Jul 21 12:42:24 2009
New Revision: 13102
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:
Yet another version bump.
Modified: DBD-Pg/trunk/Changes
==============================================================================
--- DBD-Pg/trunk/Changes (original)
+++ DBD-Pg/trunk/Changes Tue Jul 21 12:42:24 2009
@@ -1,6 +1,6 @@
('GSM' is Greg Sabino Mullane, [email protected])
-2.13.1_6
+2.13.1_7
- Make quoting of int, floats, and names much safer. (CPAN bug #41565) [GSM]
- Make quoting of geometric types respect all valid chars (CPAN bug #41565)
[GSM]
Modified: DBD-Pg/trunk/META.yml
==============================================================================
--- DBD-Pg/trunk/META.yml (original)
+++ DBD-Pg/trunk/META.yml Tue Jul 21 12:42:24 2009
@@ -1,6 +1,6 @@
--- #YAML:1.0
name : DBD-Pg
-version : 2.13.1_6
+version : 2.13.1_7
abstract : DBI PostgreSQL interface
author:
- Greg Sabino Mullane <[email protected]>
@@ -39,10 +39,10 @@
provides:
DBD::Pg:
file : Pg.pm
- version : 2.13.1_6
+ version : 2.13.1_7
Bundle::DBD::Pg:
file : lib/Bundle/DBD/Pg.pm
- version : 2.13.1_6
+ version : 2.13.1_7
keywords:
- Postgres
Modified: DBD-Pg/trunk/Makefile.PL
==============================================================================
--- DBD-Pg/trunk/Makefile.PL (original)
+++ DBD-Pg/trunk/Makefile.PL Tue Jul 21 12:42:24 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_6';
+my $VERSION = '2.13.1_7';
my $lib;
BEGIN {
Modified: DBD-Pg/trunk/Pg.pm
==============================================================================
--- DBD-Pg/trunk/Pg.pm (original)
+++ DBD-Pg/trunk/Pg.pm Tue Jul 21 12:42:24 2009
@@ -17,7 +17,7 @@
{
package DBD::Pg;
- use version; our $VERSION = qv('2.13.1_6');
+ use version; our $VERSION = qv('2.13.1_7');
use DBI ();
use DynaLoader ();
@@ -1739,7 +1739,7 @@
=head1 VERSION
-This documents version 2.13.1_6 of the DBD::Pg module
+This documents version 2.13.1_7 of the DBD::Pg module
=head1 DESCRIPTION
Modified: DBD-Pg/trunk/README
==============================================================================
--- DBD-Pg/trunk/README (original)
+++ DBD-Pg/trunk/README Tue Jul 21 12:42:24 2009
@@ -3,7 +3,7 @@
===================================================
WARNING!!
-THIS IS A TEST VERSION (2.13.1_6) AND SHOULD BE USED
+THIS IS A TEST VERSION (2.13.1_7) 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_6 of DBD::Pg, the Perl interface to Postgres using DBI.
+This is version 2.13.1_7 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 Tue Jul 21 12:42:24 2009
@@ -4,7 +4,7 @@
use strict;
use warnings;
-$VERSION = '2.13.1_6';
+$VERSION = '2.13.1_7';
1;
Modified: DBD-Pg/trunk/t/12placeholders.t
==============================================================================
--- DBD-Pg/trunk/t/12placeholders.t (original)
+++ DBD-Pg/trunk/t/12placeholders.t Tue Jul 21 12:42:24 2009
@@ -17,7 +17,7 @@
if (! defined $dbh) {
plan skip_all => 'Connection to database failed, cannot continue
testing';
}
-plan tests => 237;
+plan tests => 235;
my $t='Connect to database for placeholder testing';
isnt ($dbh, undef, $t);
@@ -623,11 +623,11 @@
}
$prefix = 'Invalid float value fails when quoting with SQL_FLOAT';
-for my $float ('3abc','123abc','','123e+04e+34','NaNum','-infinitee') {
+for my $float ('3abc','123abc','','NaNum','-infinitee') {
$t = "$prefix (value=$float)";
$val = -1;
eval { $val = $dbh->quote($float, SQL_FLOAT); };
- like ($@, qr{Invalid number}, $t);
+ like ($@, qr{Invalid float}, $t);
is ($val, -1, $t);
}
