Author: turnstep
Date: Wed May 7 05:39:06 2008
New Revision: 11208
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/02attribs.t
DBD-Pg/trunk/t/99_spellcheck.t
DBD-Pg/trunk/t/dbdpg_test_setup.pl
Log:
Prpe for version 2.6.5
Modified: DBD-Pg/trunk/Changes
==============================================================================
--- DBD-Pg/trunk/Changes (original)
+++ DBD-Pg/trunk/Changes Wed May 7 05:39:06 2008
@@ -1,8 +1,7 @@
('GSM' is Greg Sabino Mullane, [EMAIL PROTECTED])
-2.7.0
+2.6.5 Released May 7, 2008
- - Support for standard_conforming_strings. [GSM]
- Add spell checker to tests. [GSM]
- More tweaks to the testing suite. [GSM]
Modified: DBD-Pg/trunk/META.yml
==============================================================================
--- DBD-Pg/trunk/META.yml (original)
+++ DBD-Pg/trunk/META.yml Wed May 7 05:39:06 2008
@@ -1,6 +1,6 @@
--- #YAML:1.0
name : DBD-Pg
-version : 2.7.0
+version : 2.6.5
abstract : DBI PostgreSQL interface
author:
- Greg Sabino Mullane <[EMAIL PROTECTED]>
@@ -34,10 +34,10 @@
provides:
DBD::Pg:
file : Pg.pm
- version : 2.7.0
+ version : 2.6.5
Bundle::DBD::Pg:
file : lib/Bundle/DBD/Pg.pm
- version : 2.7.0
+ version : 2.6.5
keywords:
- Postgres
Modified: DBD-Pg/trunk/Makefile.PL
==============================================================================
--- DBD-Pg/trunk/Makefile.PL (original)
+++ DBD-Pg/trunk/Makefile.PL Wed May 7 05:39:06 2008
@@ -7,7 +7,7 @@
use 5.006001;
## No version.pm for this one, as the prereqs are not loaded yet.
-my $VERSION = '2.7.0';
+my $VERSION = '2.6.5';
my $lib;
BEGIN {
@@ -218,8 +218,8 @@
}
{
- package MY;
- sub MY::test {
+ package MY; ## no critic
+ sub MY::test { ## no critic
my $string = shift->SUPER::test(@_);
$string =~ s/(PERL_DL_NONLAZY=1)/PGINITDB="$initdb" $1/g;
return $string;
Modified: DBD-Pg/trunk/Pg.pm
==============================================================================
--- DBD-Pg/trunk/Pg.pm (original)
+++ DBD-Pg/trunk/Pg.pm Wed May 7 05:39:06 2008
@@ -17,7 +17,7 @@
{
package DBD::Pg;
- use version; our $VERSION = qv('2.7.0');
+ use version; our $VERSION = qv('2.6.5');
use DBI ();
use DynaLoader ();
@@ -1657,7 +1657,7 @@
=head1 VERSION
-This documents version 2.7.0 of the DBD::Pg module
+This documents version 2.6.5 of the DBD::Pg module
=head1 SYNOPSIS
Modified: DBD-Pg/trunk/README
==============================================================================
--- DBD-Pg/trunk/README (original)
+++ DBD-Pg/trunk/README Wed May 7 05:39:06 2008
@@ -6,7 +6,7 @@
DESCRIPTION:
------------
-This is version 2.7.0 of DBD-Pg. The web site for this interface, and
+This is version 2.6.5 of DBD-Pg. 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 Wed May 7 05:39:06 2008
@@ -4,7 +4,7 @@
use strict;
use warnings;
-$VERSION = '2.7.0';
+$VERSION = '2.6.5';
1;
Modified: DBD-Pg/trunk/t/02attribs.t
==============================================================================
--- DBD-Pg/trunk/t/02attribs.t (original)
+++ DBD-Pg/trunk/t/02attribs.t Wed May 7 05:39:06 2008
@@ -16,7 +16,7 @@
if (! defined $dbh) {
plan skip_all => 'Connection to database failed, cannot continue
testing';
}
-plan tests => 138;
+plan tests => 131;
isnt( $dbh, undef, 'Connect to database for handle attributes testing');
@@ -320,26 +320,6 @@
$result = $dbh->{pg_pid};
like( $result, qr/^\d+$/, q{DB handle attribute "pg_pid" returns a value});
-$t=q{DB handle attribute "pg_standard_conforming_strings" returns a valid
value};
-my $oldscs = $dbh->{pg_standard_conforming_strings};
-like( $oldscs, qr/^on|off$/, $t);
-
-$dbh->do('SET standard_conforming_strings = on');
-$t=q{DB handle attribute "pg_standard_conforming_strings" returns correct
value};
-$result = $dbh->{pg_standard_conforming_strings};
-is( $result, 'on', $t);
-$t=q{DB handle attribute "pg_scs" returns correct value};
-$result = $dbh->{pg_scs};
-is( $result, 'on', $t);
-
-$dbh->do('SET standard_conforming_strings = off');
-$t=q{DB handle attribute "pg_standard_conforming_strings" returns correct
value};
-$result = $dbh->{pg_standard_conforming_strings};
-is( $result, 'off', $t);
-$t=q{DB handle attribute "pg_scs" returns correct value};
-$result = $dbh->{pg_scs};
-is( $result, 'off', $t);
-
## If Encode is available, we will insert some non-ASCII into the test table
## Since this will fail with client encodings such as BIG5, we force UTF8
my $old_encoding = $dbh->selectall_arrayref('SHOW client_encoding')->[0][0];
@@ -357,14 +337,6 @@
local $dbh->{pg_enable_utf8} = 1;
my $utf8_str = chr(0x100).'dam'; # LATIN CAPITAL LETTER A WITH MACRON
- $dbh->do('SET standard_conforming_strings = off');
- $t=q{Database method quote() handles utf8};
- is( $dbh->quote( $utf8_str ), "'$utf8_str'", $t);
-
- $dbh->do('SET standard_conforming_strings = on');
- $t=q{Database method quote() handles utf8};
- is( $dbh->quote( $utf8_str ), "E'$utf8_str'", $t);
-
$SQL = "INSERT INTO dbd_pg_test (id, pname, val) VALUES (40,
'$utf8_str', 'Orange')";
is( $dbh->do($SQL), '1', 'Able to insert unicode character into the
database');
$sth->execute(40);
@@ -378,9 +350,6 @@
$sth->finish();
}
-$dbh->do("SET standard_conforming_strings = $oldscs");
-
-
#
# Use the handle attribute "Warn" to check inheritance
#
Modified: DBD-Pg/trunk/t/99_spellcheck.t
==============================================================================
--- DBD-Pg/trunk/t/99_spellcheck.t (original)
+++ DBD-Pg/trunk/t/99_spellcheck.t Wed May 7 05:39:06 2008
@@ -572,8 +572,10 @@
drnoble
engsci
fe
+freenode
gmx
hdf
+irc
jmore
landgren
pc
Modified: DBD-Pg/trunk/t/dbdpg_test_setup.pl
==============================================================================
--- DBD-Pg/trunk/t/dbdpg_test_setup.pl (original)
+++ DBD-Pg/trunk/t/dbdpg_test_setup.pl Wed May 7 05:39:06 2008
@@ -40,7 +40,7 @@
## If we create our own cluster, store it here:
my $test_database_dir = 'dbdpg_test_database';
-## TODO: Handle Win32 better with slashes and su
+## TODO: Handle Win32 better with slashes and user change
use vars qw/$fh/;
@@ -200,7 +200,7 @@
};
last GETHANDLE if $@;
if (!defined $info or $info !~ /[EMAIL PROTECTED]/) {
- $@ = defined $initdb ? "Bad initdb output: $info" :
"Bad initdb output";
+ $@ = defined $initdb ? "Bad initdb output: $info" :
'Bad initdb output';
last GETHANDLE;
}
@@ -215,7 +215,7 @@
};
last GETHANDLE if $@;
if (!defined $info or $info !~ /[EMAIL PROTECTED]/) {
- $@ = defined $initdb ? "Bad pg_ctl output: $info" :
"Bad pg_ctl output";
+ $@ = defined $initdb ? "Bad pg_ctl output: $info" :
'Bad pg_ctl output';
last GETHANDLE;
}
@@ -283,7 +283,7 @@
## Assume this is already good to go
}
elsif ($info !~ /pg_ctl/) {
- $@ = "initdb did not give a pg_ctl string";
+ $@ = 'initdb did not give a pg_ctl string';
last GETHANDLE;
}
