r22529 - in /trunk/libdbd-pg-perl: Changes META.yml Makefile.PL Pg.pm README SIGNATURE TODO debian/changelog lib/Bundle/DBD/Pg.pm t/01connect.t t/12placeholders.t t/dbdpg_test_setup.pl
gregoa at users.alioth.debian.org
gregoa at users.alioth.debian.org
Mon Jun 30 17:52:23 UTC 2008
Author: gregoa
Date: Mon Jun 30 17:52:22 2008
New Revision: 22529
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=22529
Log:
New upstream release.
Modified:
trunk/libdbd-pg-perl/Changes
trunk/libdbd-pg-perl/META.yml
trunk/libdbd-pg-perl/Makefile.PL
trunk/libdbd-pg-perl/Pg.pm
trunk/libdbd-pg-perl/README
trunk/libdbd-pg-perl/SIGNATURE
trunk/libdbd-pg-perl/TODO
trunk/libdbd-pg-perl/debian/changelog
trunk/libdbd-pg-perl/lib/Bundle/DBD/Pg.pm
trunk/libdbd-pg-perl/t/01connect.t
trunk/libdbd-pg-perl/t/12placeholders.t
trunk/libdbd-pg-perl/t/dbdpg_test_setup.pl
Modified: trunk/libdbd-pg-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdbd-pg-perl/Changes?rev=22529&op=diff
==============================================================================
--- trunk/libdbd-pg-perl/Changes (original)
+++ trunk/libdbd-pg-perl/Changes Mon Jun 30 17:52:22 2008
@@ -1,6 +1,10 @@
('GSM' is Greg Sabino Mullane, greg at turnstep.com)
-2.8.1 Released June 11, 2008
+2.8.2 Released June 29, 2008
+
+ - Minor testing tweaks, doc fixes.
+
+2.8.1 Released June 11, 2008 (subversion r11417)
- Force testing to use a custom socket dir, to avoid
permission problems. Thanks to Frank Wiegand for
Modified: trunk/libdbd-pg-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdbd-pg-perl/META.yml?rev=22529&op=diff
==============================================================================
--- trunk/libdbd-pg-perl/META.yml (original)
+++ trunk/libdbd-pg-perl/META.yml Mon Jun 30 17:52:22 2008
@@ -1,6 +1,6 @@
--- #YAML:1.0
name : DBD-Pg
-version : 2.8.1
+version : 2.8.2
abstract : DBI PostgreSQL interface
author:
- Greg Sabino Mullane <greg at turnstep.com>
@@ -38,10 +38,10 @@
provides:
DBD::Pg:
file : Pg.pm
- version : 2.8.1
+ version : 2.8.2
Bundle::DBD::Pg:
file : lib/Bundle/DBD/Pg.pm
- version : 2.8.1
+ version : 2.8.2
keywords:
- Postgres
Modified: trunk/libdbd-pg-perl/Makefile.PL
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdbd-pg-perl/Makefile.PL?rev=22529&op=diff
==============================================================================
--- trunk/libdbd-pg-perl/Makefile.PL (original)
+++ trunk/libdbd-pg-perl/Makefile.PL Mon Jun 30 17:52:22 2008
@@ -1,4 +1,4 @@
-# $Id: Makefile.PL 11400 2008-06-10 17:42:07Z turnstep $
+# $Id: Makefile.PL 11444 2008-06-23 14:05:01Z 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.8.1';
+my $VERSION = '2.8.2';
my $lib;
BEGIN {
@@ -290,6 +290,7 @@
my $output = WriteMakefile(%opts);
if (!exists $output->{EXTRALIBS} or
+
($output->{EXTRALIBS} !~ /\-lpq/ and $output->{EXTRALIBS} !~ /libpq/)) {
my $makefile = exists $output->{MAKEFILE}
Modified: trunk/libdbd-pg-perl/Pg.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdbd-pg-perl/Pg.pm?rev=22529&op=diff
==============================================================================
--- trunk/libdbd-pg-perl/Pg.pm (original)
+++ trunk/libdbd-pg-perl/Pg.pm Mon Jun 30 17:52:22 2008
@@ -1,5 +1,5 @@
# -*-cperl-*-
-# $Id: Pg.pm 11412 2008-06-11 23:12:10Z turnstep $
+# $Id: Pg.pm 11463 2008-06-30 00:36:43Z 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.8.1');
+ use version; our $VERSION = qv('2.8.2');
use DBI ();
use DynaLoader ();
@@ -1688,7 +1688,7 @@
=head1 VERSION
-This documents version 2.8.1 of the DBD::Pg module
+This documents version 2.8.2 of the DBD::Pg module
=head1 DESCRIPTION
@@ -2467,12 +2467,18 @@
$rv = $dbh->do($statement, \%attr, @bind_values);
-Prepare and execute a single statement. Note that an empty statement
-(string with no length) will not be passed to the server; if you
-want a simple test, use "SELECT 123" or the ping() function. If
-neither attr nor bind_values is given, the query will be sent directly
-to the server without the overhead of creating a statement handle and
+Prepare and execute a single statement. Returns the number of rows affected if the
+query was successful, returns undef if an error occurred, and returns -1 if the
+number of rows is unknown or not available. Note that this method will return '0E0' instead
+of 0 for 'no rows were affected', in order to always return a true value if no error.
+
+If neither attr nor bind_values is given, the query will be sent directly
+to the server without the overhead of creating a statement handle and
running prepare and execute.
+
+Note that an empty statement (a string with no length) will not be passed to
+the server; if you want a simple test, use "SELECT 123" or the ping()
+function.
=item B<last_insert_id>
Modified: trunk/libdbd-pg-perl/README
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdbd-pg-perl/README?rev=22529&op=diff
==============================================================================
--- trunk/libdbd-pg-perl/README (original)
+++ trunk/libdbd-pg-perl/README Mon Jun 30 17:52:22 2008
@@ -1,12 +1,12 @@
DBD::Pg -- the DBI PostgreSQL interface for Perl
-# $Id: README 11400 2008-06-10 17:42:07Z turnstep $
+# $Id: README 11444 2008-06-23 14:05:01Z turnstep $
DESCRIPTION:
------------
-This is version 2.8.1 of DBD::Pg. The web site for this interface, and
+This is version 2.8.2 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: trunk/libdbd-pg-perl/SIGNATURE
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdbd-pg-perl/SIGNATURE?rev=22529&op=diff
==============================================================================
--- trunk/libdbd-pg-perl/SIGNATURE (original)
+++ trunk/libdbd-pg-perl/SIGNATURE Mon Jun 30 17:52:22 2008
@@ -15,27 +15,27 @@
Hash: RIPEMD160
SHA1 f0ec5e26a58bb8848c779560f654d7ff6444bd62 .perlcriticrc
-SHA1 64fdf9ef4491ea25f76ce7af5eb41b717b7d1695 Changes
+SHA1 e85540d8c9300d5d93a702001d74f3182ab1fa47 Changes
SHA1 4d91c71e5dbb19ece1505ab75c36d00a744bb076 MANIFEST
SHA1 22055b195f5cf15d7909e8a08468e617f46154e7 MANIFEST.SKIP
-SHA1 2d0c181af631b4c1f99b22b315b9549abb36bb84 META.yml
-SHA1 91a97af58dd0b6afccb93df1eb8483240f121ce7 Makefile.PL
+SHA1 234a93990275a0f1a86006ed316babbe87a2b8f6 META.yml
+SHA1 daa19cb8945317db60f3f2a6134e6e81b41a48e7 Makefile.PL
SHA1 c51356c52c139265e20a2ad33bc8d3ee04f6ff48 Pg.h
-SHA1 775fd7b719d3979bb41b114b1190816f31820295 Pg.pm
+SHA1 128c2fab556b6bf468a4542679e76807f83e4969 Pg.pm
SHA1 06d991c871e5f2b3b900990fc71e6207c94ad8cf Pg.xs
-SHA1 3f2acadc8215a795d9700566149ac568884863a5 README
+SHA1 cd3af0a184ecd464c0f1b16f20c6b4ddabb59c6a README
SHA1 283327a19b823faa386bcc85d5104baca40aaa35 README.dev
SHA1 968d5fad61bce160b31a9cb1a21dd240b9df930f README.win32
-SHA1 3cc0dc67acbb3c3a34f95bb6c9f308b165898d06 TODO
+SHA1 0d189a3149a324fa78227f280d50eadc1377671f TODO
SHA1 2ee3930895ededd7253a3f9ce3bd9f6ed5bdc224 dbdimp.c
SHA1 9a5244ebe27af6f18c5dc8713fe8aecaa334134e dbdimp.h
SHA1 6c33bcf138e577722283bef02fceb8cbce4d100d dbivport.h
-SHA1 35a8bc405e0257c6c6e1c42e67e1cd8bad2fba41 lib/Bundle/DBD/Pg.pm
+SHA1 2e227ff3912458393b10f0371ac51417cfcf3cf1 lib/Bundle/DBD/Pg.pm
SHA1 76a2c65c065a93775ceadf933a5d38bb25c8afa4 quote.c
SHA1 0a1fdd0406c5c367a9aba366d1d35cfa8d5272ae quote.h
SHA1 4da4f8074e8f46d4e787906fa6de3ebbadef29ed t/00-signature.t
SHA1 5af8ab01ab090be9daf556c5b03def8bacb3b8cd t/00basic.t
-SHA1 120ad9a523d8cb7affab6d38f5d44a2ffce7e6a7 t/01connect.t
+SHA1 4f9864be885087e33c3d4cfec3ec33b101261be4 t/01connect.t
SHA1 655b72fa5f29886caa9b4a0ac7d69dc078d4bf55 t/01constants.t
SHA1 797ce6c8b6bb49800f33d3792165eb8c84bb370d t/02attribs.t
SHA1 914ba6cc8161552f03ad1d507cff5e1b90f4cfb2 t/03dbmethod.t
@@ -45,14 +45,14 @@
SHA1 1002b952950258a004a5485e8acd6032d38533b7 t/07copy.t
SHA1 5ee1eabc257b4ca68dc057b526514def24740383 t/08async.t
SHA1 98bbf45b2e2e5f299b0859fb08623ffa10bfc3d0 t/09arrays.t
-SHA1 b1be0cffd8ea9e9a1c560d9d67840eaa67a2d402 t/12placeholders.t
+SHA1 249150a41254619c4deca84e6f49422b0a9c62e4 t/12placeholders.t
SHA1 6bdf8e55f3ea98f33af91e8f6af628901e66cd34 t/20savepoints.t
SHA1 addf7fcdcf836fac6b97a9bcadd3daaf2854ae11 t/99_perlcritic.t
SHA1 74f4e54a0e8e9e8501ef1c13c05efb757d271bd4 t/99_pod.t
SHA1 f66b5581261c89bb58a6a4d26e76336a432802cd t/99_spellcheck.t
SHA1 e9e984b3c3366d5cee873f1dc59e2b7c26e744ee t/99_yaml.t
SHA1 5b82b5443966e3ae98fcdb8668059a8969058cf0 t/99cleanup.t
-SHA1 023f0e7423ec75fba162e34fd148776cacacb6a9 t/dbdpg_test_setup.pl
+SHA1 65ae68bc493653df62d969ae4838dd56379c0d3a t/dbdpg_test_setup.pl
SHA1 bc4a58bdd5e853139f9e1fc6129f83e50a07a2c6 t/lib/App/Info.pm
SHA1 58befda00c12b1721875262505112203bf230450 t/lib/App/Info/Handler.pm
SHA1 b5bf85b12a5fc207c44113a9c028fb7fbd68531f t/lib/App/Info/Handler/Prompt.pm
@@ -65,7 +65,7 @@
SHA1 f07cd5ecaeb854c81ceb9206364979cf607e6546 win32.mak
-----BEGIN PGP SIGNATURE-----
-iEYEAREDAAYFAkhQjl4ACgkQvJuQZxSWSshtEQCfYofmrq5NQxkYweMTntuTtKwK
-Vr0AnR3MVG+LflnclzzodMDeNvF/cDXM
-=3Bx5
+iEYEAREDAAYFAkhoLNsACgkQvJuQZxSWSsgGBACgtRiiNR7FxMzgSwKB6PyB+YkL
+jaUAoJ4gslx9QDrCK2j2Lf7556U1wARj
+=vjsb
-----END PGP SIGNATURE-----
Modified: trunk/libdbd-pg-perl/TODO
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdbd-pg-perl/TODO?rev=22529&op=diff
==============================================================================
--- trunk/libdbd-pg-perl/TODO (original)
+++ trunk/libdbd-pg-perl/TODO Mon Jun 30 17:52:22 2008
@@ -3,6 +3,7 @@
Feature requests can be entered at
http://rt.cpan.org/Public/Dist/Display.html?Name=DBD-Pg
+- Make docs easier to read on their own without lots of DBI cross referencing.
- Use WITH HOLD for cursor work
- Devise a way to automatically create ppm for Windows builds
- I8n docs and error messages
Modified: trunk/libdbd-pg-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdbd-pg-perl/debian/changelog?rev=22529&op=diff
==============================================================================
--- trunk/libdbd-pg-perl/debian/changelog (original)
+++ trunk/libdbd-pg-perl/debian/changelog Mon Jun 30 17:52:22 2008
@@ -1,3 +1,9 @@
+libdbd-pg-perl (2.8.2-1) UNRELEASED; urgency=low
+
+ * New upstream release.
+
+ -- gregor herrmann <gregoa at debian.org> Mon, 30 Jun 2008 19:50:34 +0200
+
libdbd-pg-perl (2.8.1-1) unstable; urgency=low
[ MartÃn Ferrari ]
Modified: trunk/libdbd-pg-perl/lib/Bundle/DBD/Pg.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdbd-pg-perl/lib/Bundle/DBD/Pg.pm?rev=22529&op=diff
==============================================================================
--- trunk/libdbd-pg-perl/lib/Bundle/DBD/Pg.pm (original)
+++ trunk/libdbd-pg-perl/lib/Bundle/DBD/Pg.pm Mon Jun 30 17:52:22 2008
@@ -4,7 +4,7 @@
use strict;
use warnings;
-$VERSION = '2.8.1';
+$VERSION = '2.8.2';
1;
Modified: trunk/libdbd-pg-perl/t/01connect.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdbd-pg-perl/t/01connect.t?rev=22529&op=diff
==============================================================================
--- trunk/libdbd-pg-perl/t/01connect.t (original)
+++ trunk/libdbd-pg-perl/t/01connect.t Mon Jun 30 17:52:22 2008
@@ -142,6 +142,9 @@
if (defined $connerror and length $connerror) {
$connerror =~ s/.+?failed: //;
$connerror =~ s{\n at t/dbdpg.*}{}m;
+ if ($connerror =~ /create semaphores/) {
+ $connerror =~ s/.*(FATAL.*?)HINT.*/$1/m;
+ }
$extra .= "\nError was: $connerror";
}
Modified: trunk/libdbd-pg-perl/t/12placeholders.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdbd-pg-perl/t/12placeholders.t?rev=22529&op=diff
==============================================================================
--- trunk/libdbd-pg-perl/t/12placeholders.t (original)
+++ trunk/libdbd-pg-perl/t/12placeholders.t Mon Jun 30 17:52:22 2008
@@ -234,6 +234,11 @@
};
is( $@, q{}, $t);
+## Begin custom type testing
+
+
+
+
$dbh->rollback();
cleanup_database($dbh,'test');
Modified: trunk/libdbd-pg-perl/t/dbdpg_test_setup.pl
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdbd-pg-perl/t/dbdpg_test_setup.pl?rev=22529&op=diff
==============================================================================
--- trunk/libdbd-pg-perl/t/dbdpg_test_setup.pl (original)
+++ trunk/libdbd-pg-perl/t/dbdpg_test_setup.pl Mon Jun 30 17:52:22 2008
@@ -64,14 +64,14 @@
## We'll try various ways to get to a database to test with
## First, check to see if we've been here before and left directions
- my ($testdsn,$testuser,$helpconnect,$su,$testdir,$pg_ctl) = get_test_settings();
+ my ($testdsn,$testuser,$helpconnect,$su,$testdir,$pg_ctl,$error) = get_test_settings();
## For debugging purposes, we'll be storing this in README.testdatabase as well
my $initdb = 'default';
## Did we fail last time? Fail this time too, but quicker!
if ($testdsn =~ /FAIL!/) {
- return $helpconnect, 'Previous failure', undef;
+ return $helpconnect, "Previous failure ($error)", undef;
}
## Got a working DSN? Give it an attempt
@@ -223,11 +223,19 @@
}
$info = '';
eval {
- $info = qx{$initdb --help 2>&1};
+ $info = qx{initdb --help 2>&1};
};
last GETHANDLE if $@;
- if (!defined $info or $info !~ /\@postgresql\.org/) {
- $@ = defined $info ? "Bad initdb output: $info" : 'Bad initdb output';
+ if (!defined $info or ($info !~ /\@postgresql\.org/ and $info !~ /run as root/)) {
+ if (defined $info) {
+ $@ = "Bad initdb output: $info";
+ }
+ else {
+ my $msg = 'Failed to run initdb.';
+ exists $ENV{PGINITDB} and $msg .= " ENV was: $ENV{PGINITDB}";
+ $msg .= " Final call was: $initdb";
+ $@ = $msg;
+ }
last GETHANDLE;
}
@@ -254,7 +262,7 @@
last GETHANDLE if $@;
## initdb and pg_ctl cannot be run as root, so let's handle that
- if ($info =~ /run as root/) {
+ if ($info =~ /run as root/ or $info =~ /unprivilegierte/) {
if (! -e $test_database_dir) {
mkdir $test_database_dir;
}
@@ -413,6 +421,7 @@
## At this point, we've got a connection, or have failed
## Either way, we record for future runs
+ my $connerror = $@;
if (open $fh, '>', $helpfile) {
print $fh "## This is a temporary file created for testing DBD::Pg\n";
print $fh '## Created: ' . scalar localtime() . "\n";
@@ -420,9 +429,9 @@
print $fh "## Helpconnect: $helpconnect\n";
print $fh "## pg_ctl: $pg_ctl\n";
print $fh "## initdb: $initdb\n";
- if ($@) {
+ if ($connerror) {
print $fh "## DSN: FAIL!\n";
- print $fh "## ERROR: $@\n";
+ print $fh "## ERROR: $connerror\n";
}
else {
print $fh "## DSN: $testdsn\n";
@@ -433,7 +442,7 @@
close $fh or die qq{Could not close "$helpfile": $!\n};
}
- $@ and return $helpconnect, $@, undef;
+ $connerror and return $helpconnect, $connerror, undef;
GOTDBH:
## This allows things like data_sources() to work if we did an initdb
@@ -501,7 +510,7 @@
if (exists $ENV{PGINITDB} and -e $ENV{PGINITDB}) {
($pg_ctl = $ENV{PGINITDB}) =~ s/initdb/pg_ctl/;
}
- my ($testdsn, $testuser, $testdir) = ('','','');
+ my ($testdsn, $testuser, $testdir, $error) = ('','','','?');
my ($helpconnect, $su) = (0,'');
if (-e $helpfile) {
open $fh, '<', $helpfile or die qq{Could not open "$helpfile": $!\n};
@@ -512,11 +521,12 @@
/Testowner: (\w+)/ and $su = $1;
/Testdir: (.+)/ and $testdir = $1;
/pg_ctl: (.+)/ and $pg_ctl = $1;
+ /ERROR: (.+)/ and $error = $1;
}
close $fh or die qq{Could not close "$helpfile": $!\n};
}
- return $testdsn, $testuser, $helpconnect, $su, $testdir, $pg_ctl;
+ return $testdsn, $testuser, $helpconnect, $su, $testdir, $pg_ctl, $error;
}
More information about the Pkg-perl-cvs-commits
mailing list