r23597 - in /trunk/libdbi-perl: Changes DBI.pm DBI.xs META.yml Makefile.PL debian/changelog lib/DBD/Gofer.pm lib/DBI/Gofer/Execute.pm lib/DBI/Gofer/Response.pm t/40profile.t test.pl
gregoa at users.alioth.debian.org
gregoa at users.alioth.debian.org
Sat Jul 26 15:54:19 UTC 2008
Author: gregoa
Date: Sat Jul 26 15:54:12 2008
New Revision: 23597
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=23597
Log:
New upstream release.
Modified:
trunk/libdbi-perl/Changes
trunk/libdbi-perl/DBI.pm
trunk/libdbi-perl/DBI.xs
trunk/libdbi-perl/META.yml
trunk/libdbi-perl/Makefile.PL
trunk/libdbi-perl/debian/changelog
trunk/libdbi-perl/lib/DBD/Gofer.pm
trunk/libdbi-perl/lib/DBI/Gofer/Execute.pm
trunk/libdbi-perl/lib/DBI/Gofer/Response.pm
trunk/libdbi-perl/t/40profile.t
trunk/libdbi-perl/test.pl
Modified: trunk/libdbi-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdbi-perl/Changes?rev=23597&op=diff
==============================================================================
--- trunk/libdbi-perl/Changes (original)
+++ trunk/libdbi-perl/Changes Sat Jul 26 15:54:12 2008
@@ -2,7 +2,7 @@
DBI::Changes - List of significant changes to the DBI
-(As of $Date: 2008-06-16 19:59:57 +0100 (Mon, 16 Jun 2008) $ $Revision: 11430 $)
+(As of $Date: 2008-07-22 14:45:45 -0700 (Tue, 22 Jul 2008) $ $Revision: 11571 $)
=cut
@@ -54,15 +54,17 @@
Add high-res time for windows - via Time::HiRes glob replace dbi_time().
-=head2 Changes in DBI 1.605 XXX
-
-Make trace level 2 show method entry but not fetched rows, leave that for trace level 3.
-So trace level 2 can be used to aid debugging without being flooded by data
-
-1 = return from top level only, no rows
-2 = +entry to top level, no rows
-3 = +return from nested, no rows
-4 = +entry to nested, with rows
+=head2 Changes in DBI 1.607 (svn r11571) 22nd July 2008
+
+ NOTE: Perl 5.8.1 is now the minimum supported version.
+ If you need support for earlier versions send me a patch.
+
+ Fixed missing import of carp in DBI::Gofer::Execute.
+
+ Added note to docs about effect of execute(@empty_array).
+ Clarified docs for ReadOnly thanks to Martin Evans.
+
+=head2 Changes in DBI 1.605 (svn r11434) 16th June 2008
Fixed broken DBIS macro with threads on big-endian machines
with 64bit ints but 32bit pointers. Ticket #32309.
Modified: trunk/libdbi-perl/DBI.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdbi-perl/DBI.pm?rev=23597&op=diff
==============================================================================
--- trunk/libdbi-perl/DBI.pm (original)
+++ trunk/libdbi-perl/DBI.pm Sat Jul 26 15:54:12 2008
@@ -1,4 +1,4 @@
-# $Id: DBI.pm 11430 2008-06-16 18:59:57Z timbo $
+# $Id: DBI.pm 11570 2008-07-22 21:45:16Z timbo $
# vim: ts=8:sw=4:noet
#
# Copyright (c) 1994-2008 Tim Bunce Ireland
@@ -9,7 +9,7 @@
require 5.006_00;
BEGIN {
-$DBI::VERSION = "1.605"; # ==> ALSO update the version in the pod text below!
+$DBI::VERSION = "1.607"; # ==> ALSO update the version in the pod text below!
}
=head1 NAME
@@ -121,8 +121,8 @@
=head2 NOTES
-This is the DBI specification that corresponds to the DBI version 1.605
-($Revision: 11430 $).
+This is the DBI specification that corresponds to the DBI version 1.607
+($Revision: 11570 $).
The DBI is evolving at a steady pace, so it's good to check that
you have the latest copy.
@@ -3844,8 +3844,9 @@
Note that the exact definition of 'read only' is rather fuzzy.
For more details see the documentation for the driver you're using.
-If the driver can make the handle truly read-only (by issuing a statement like
-"C<set transaction read only>" as needed, for example) then it should.
+If the driver can make the handle truly read-only then it should
+(unless doing so would have unpleasant side effect, like changing the
+consistency level from per-statement to per-session).
Otherwise the attribute is simply advisory.
A driver can set the C<ReadOnly> attribute itself to indicate that the data it
@@ -5191,8 +5192,9 @@
$sql = sprintf "SELECT foo FROM bar WHERE baz = %s",
$dbh->quote("Don't");
-For most database types, quote would return C<'Don''t'> (including the
-outer quotation marks).
+For most database types, at least those that conform to SQL standards, quote
+would return C<'Don''t'> (including the outer quotation marks). For others it
+may return something like C<'Don\'t'>
An undefined C<$value> value will be returned as the string C<NULL> (without
single quotation marks) to match how NULLs are represented in SQL.
@@ -5604,6 +5606,10 @@
the driver can determine the correct type (which is rare), or unless
C<bind_param> (or C<bind_param_inout>) has already been used to
specify the type.
+
+Note that passing C<execute> an empty array is the same as passing no arguments
+at all, which will execute the statement with previously bound values.
+That's probably not what you want.
If execute() is called on a statement handle that's still active
($sth->{Active} is true) then it should effectively call finish()
Modified: trunk/libdbi-perl/DBI.xs
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdbi-perl/DBI.xs?rev=23597&op=diff
==============================================================================
--- trunk/libdbi-perl/DBI.xs (original)
+++ trunk/libdbi-perl/DBI.xs Sat Jul 26 15:54:12 2008
@@ -1,6 +1,6 @@
/* vim: ts=8:sw=4
*
- * $Id: DBI.xs 11430 2008-06-16 18:59:57Z timbo $
+ * $Id: DBI.xs 11544 2008-07-20 06:43:16Z timbo $
*
* Copyright (c) 1994-2003 Tim Bunce Ireland.
*
@@ -2712,6 +2712,7 @@
dTHX;
AV *d_av, *i_av;
SV *tmp;
+ SV *tmp2;
NV i_nv;
int i_is_earlier;
@@ -2747,8 +2748,12 @@
croak("dbi_profile_merge_nodes: increment %s not an array or hash ref", neatsvpv(increment,0));
i_av = (AV*)SvRV(increment);
- tmp = *av_fetch(d_av, DBIprof_COUNT, 1);
- sv_setiv( tmp, SvIV(tmp) + SvIV( *av_fetch(i_av, DBIprof_COUNT, 1)) );
+ tmp = *av_fetch(d_av, DBIprof_COUNT, 1);
+ tmp2 = *av_fetch(i_av, DBIprof_COUNT, 1);
+ if (SvIOK(tmp) && SvIOK(tmp2))
+ sv_setiv( tmp, SvIV(tmp) + SvIV(tmp2) );
+ else
+ sv_setnv( tmp, SvNV(tmp) + SvNV(tmp2) );
tmp = *av_fetch(d_av, DBIprof_TOTAL_TIME, 1);
sv_setnv( tmp, SvNV(tmp) + SvNV( *av_fetch(i_av, DBIprof_TOTAL_TIME, 1)) );
Modified: trunk/libdbi-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdbi-perl/META.yml?rev=23597&op=diff
==============================================================================
--- trunk/libdbi-perl/META.yml (original)
+++ trunk/libdbi-perl/META.yml Sat Jul 26 15:54:12 2008
@@ -1,6 +1,6 @@
--- #YAML:1.0
name: DBI
-version: 1.605
+version: 1.607
abstract: Database independent interface for Perl
license: perl
author:
Modified: trunk/libdbi-perl/Makefile.PL
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdbi-perl/Makefile.PL?rev=23597&op=diff
==============================================================================
--- trunk/libdbi-perl/Makefile.PL (original)
+++ trunk/libdbi-perl/Makefile.PL Sat Jul 26 15:54:12 2008
@@ -1,13 +1,13 @@
# -*- perl -*-
#
-# $Id: Makefile.PL 11128 2008-04-21 14:32:27Z timbo $
+# $Id: Makefile.PL 11570 2008-07-22 21:45:16Z timbo $
#
-# Copyright (c) 1994-2006 Tim Bunce Ireland
+# Copyright (c) 1994-2008 Tim Bunce Ireland
#
# See COPYRIGHT section in DBI.pm for usage and distribution rights.
BEGIN {
- require 5.006_00;
+ require 5.008_001;
unshift @INC, "lib";
}
@@ -37,17 +37,6 @@
or die "Invalid arguments\n";
$::opt_g &&= '-g'; # convert to actual string
-
-if ($] < 5.008000) {
- warn qq{
-**************************************************************************
- Perl versions below 5.6.1 are no longer supported by the DBI.
- Perl versions 5.6.x may fail during installation with a complaint
- about the use of =head3 in the pod documentation.
-**************************************************************************
-};
- prompt("Press return to continue...");
-}
if (($ENV{LANG}||'') =~ m/utf-?8/i) {
Modified: trunk/libdbi-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdbi-perl/debian/changelog?rev=23597&op=diff
==============================================================================
--- trunk/libdbi-perl/debian/changelog (original)
+++ trunk/libdbi-perl/debian/changelog Sat Jul 26 15:54:12 2008
@@ -1,3 +1,9 @@
+libdbi-perl (1.607-1) UNRELEASED; urgency=low
+
+ * New upstream release.
+
+ -- gregor herrmann <gregoa at debian.org> Sat, 26 Jul 2008 17:52:49 +0200
+
libdbi-perl (1.605-1) unstable; urgency=low
* Homepage: http://dbi.perl.org/ Closes: #479095
Modified: trunk/libdbi-perl/lib/DBD/Gofer.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdbi-perl/lib/DBD/Gofer.pm?rev=23597&op=diff
==============================================================================
--- trunk/libdbi-perl/lib/DBD/Gofer.pm (original)
+++ trunk/libdbi-perl/lib/DBD/Gofer.pm Sat Jul 26 15:54:12 2008
@@ -8,9 +8,9 @@
require DBI::Gofer::Response;
require Carp;
- our $VERSION = sprintf("0.%06d", q$Revision: 11377 $ =~ /(\d+)/o);
-
-# $Id: Gofer.pm 11377 2008-06-03 22:18:04Z timbo $
+ our $VERSION = sprintf("0.%06d", q$Revision: 11565 $ =~ /(\d+)/o);
+
+# $Id: Gofer.pm 11565 2008-07-22 20:17:33Z timbo $
#
# Copyright (c) 2007, Tim Bunce, Ireland
#
@@ -91,11 +91,12 @@
sub set_err_from_response { # set error/warn/info and propagate warnings
- my ($h, $response) = @_;
+ my $h = shift;
+ my $response = shift;
if (my $warnings = $response->warnings) {
warn $_ for @$warnings;
}
- return $h->set_err($response->err, $response->errstr, $response->state);
+ return $h->set_err($response->err_errstr_state);
}
Modified: trunk/libdbi-perl/lib/DBI/Gofer/Execute.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdbi-perl/lib/DBI/Gofer/Execute.pm?rev=23597&op=diff
==============================================================================
--- trunk/libdbi-perl/lib/DBI/Gofer/Execute.pm (original)
+++ trunk/libdbi-perl/lib/DBI/Gofer/Execute.pm Sat Jul 26 15:54:12 2008
@@ -1,6 +1,6 @@
package DBI::Gofer::Execute;
-# $Id: Execute.pm 11431 2008-06-16 19:01:11Z timbo $
+# $Id: Execute.pm 11544 2008-07-20 06:43:16Z timbo $
#
# Copyright (c) 2007, Tim Bunce, Ireland
#
@@ -10,13 +10,15 @@
use strict;
use warnings;
+use Carp;
+
use DBI qw(dbi_time);
use DBI::Gofer::Request;
use DBI::Gofer::Response;
use base qw(DBI::Util::_accessor);
-our $VERSION = sprintf("0.%06d", q$Revision: 11431 $ =~ /(\d+)/o);
+our $VERSION = sprintf("0.%06d", q$Revision: 11544 $ =~ /(\d+)/o);
our @all_dbh_methods = sort map { keys %$_ } $DBI::DBI_methods{db}, $DBI::DBI_methods{common};
our %all_dbh_methods = map { $_ => (DBD::_::db->can($_)||undef) } @all_dbh_methods;
Modified: trunk/libdbi-perl/lib/DBI/Gofer/Response.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdbi-perl/lib/DBI/Gofer/Response.pm?rev=23597&op=diff
==============================================================================
--- trunk/libdbi-perl/lib/DBI/Gofer/Response.pm (original)
+++ trunk/libdbi-perl/lib/DBI/Gofer/Response.pm Sat Jul 26 15:54:12 2008
@@ -1,6 +1,6 @@
package DBI::Gofer::Response;
-# $Id: Response.pm 11424 2008-06-16 14:52:03Z timbo $
+# $Id: Response.pm 11565 2008-07-22 20:17:33Z timbo $
#
# Copyright (c) 2007, Tim Bunce, Ireland
#
@@ -14,7 +14,7 @@
use base qw(DBI::Util::_accessor Exporter);
-our $VERSION = sprintf("0.%06d", q$Revision: 11424 $ =~ /(\d+)/o);
+our $VERSION = sprintf("0.%06d", q$Revision: 11565 $ =~ /(\d+)/o);
use constant GOf_RESPONSE_EXECUTED => 0x0001;
@@ -46,6 +46,10 @@
}
+sub err_errstr_state {
+ my $self = shift;
+ return @{$self}{qw(err errstr state)};
+}
sub executed_flag_set {
my $flags = shift->flags
Modified: trunk/libdbi-perl/t/40profile.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdbi-perl/t/40profile.t?rev=23597&op=diff
==============================================================================
--- trunk/libdbi-perl/t/40profile.t (original)
+++ trunk/libdbi-perl/t/40profile.t Sat Jul 26 15:54:12 2008
@@ -296,7 +296,7 @@
# if actual "!Time" recorded is 'close enough' then we'll pass
# the test - it's not worth failing just because a system is slow
-$t1 = (keys %$tmp)[0] if (abs($t1 - (keys %$tmp)[0]) <= 2);
+$t1 = (keys %$tmp)[0] if (abs($t1 - (keys %$tmp)[0]) <= 5);
is_deeply $tmp, {
$t1 => { $t2 => { prepare => [ 1, 0, 0, 0, 0, 0, 0 ] }}
Modified: trunk/libdbi-perl/test.pl
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdbi-perl/test.pl?rev=23597&op=diff
==============================================================================
--- trunk/libdbi-perl/test.pl (original)
+++ trunk/libdbi-perl/test.pl Sat Jul 26 15:54:12 2008
@@ -1,6 +1,6 @@
#!/usr/local/bin/perl -w
-# $Id: test.pl 9451 2007-04-25 15:57:06Z timbo $
+# $Id: test.pl 11566 2008-07-22 20:54:36Z timbo $
#
# Copyright (c) 1994-1998 Tim Bunce
#
@@ -14,7 +14,7 @@
BEGIN {
print "$0 @ARGV\n";
- print q{DBI test application $Revision: 9451 $}."\n";
+ print q{DBI test application $Revision: 11566 $}."\n";
$| = 1;
}
@@ -77,7 +77,7 @@
if ($::opt_m) {
#$dbh->trace(9);
my $level = $::opt_m;
- my $cnt = 10000;
+ my $cnt = $::opt_n || 10000;
print "Using $driver, same dbh...\n";
for (my $i=0; $i<$cnt; ++$i) { mem_test($dbh, undef, $level, undef, undef, undef) }
print "Using NullP, reconnecting each time...\n";
@@ -141,7 +141,7 @@
my $cursor_a;
my ($dl_count, $dl_handle);
- if ($$r_develleak++) {
+ if ($has_devel_leak && $$r_develleak++) {
$dbh->trace(2);
$dl_count = Devel::Leak::NoteSV($dl_handle);
}
More information about the Pkg-perl-cvs-commits
mailing list