commit perl-DBI

25 Jul 2008

Hello community,

here is the log from the commit of package perl-DBI
checked in at Fri Jul 25 16:59:23 CEST 2008.


--------

--- perl-DBI/perl-DBI.changes	2008-06-27 16:39:25.000000000 +0200
+++ /mounts/work_src_done/STABLE/perl-DBI/perl-DBI.changes	2008-07-25 15:49:33.000000000 +0200
@@ -1,0 +2,9 @@
+Fri Jul 25 15:12:59 CEST 2008 - anicka@suse.cz
+
+- update to 1.607
+  * NOTE: Perl 5.8.1 is now the minimum supported version.
+  * 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.
+
+-------------------------------------------------------------------



Old:
----
  DBI-1.605.tar.bz2

New:
----
  DBI-1.607.tar.bz2

++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

Other differences:
------------------
++++++ perl-DBI.spec ++++++
--- /var/tmp/diff_new_pack.A31224/_old	2008-07-25 16:59:08.000000000 +0200
+++ /var/tmp/diff_new_pack.A31224/_new	2008-07-25 16:59:08.000000000 +0200
@@ -1,5 +1,5 @@
 #
-# spec file for package perl-DBI (Version 1.605)
+# spec file for package perl-DBI (Version 1.607)
 #
 # Copyright (c) 2008 SUSE LINUX Products GmbH, Nuernberg, Germany.
 # This file and all modifications and additions to the pristine
@@ -13,7 +13,7 @@
 
 Name:           perl-DBI
 BuildRequires:  perl-Curses
-Version:        1.605
+Version:        1.607
 Release:        1
 Requires:       perl = %{perl_version}
 Requires:       perl-PlRPC
@@ -71,6 +71,12 @@
 /var/adm/perl-modules/%{name}
 
 %changelog
+* Fri Jul 25 2008 anicka@suse.cz
+- update to 1.607
+  * NOTE: Perl 5.8.1 is now the minimum supported version.
+  * 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.
 * Fri Jun 27 2008 anicka@suse.cz
 - update to 1.605
   * Fixed broken DBIS macro with threads on big-endian machines

++++++ DBI-1.605.tar.bz2 -> DBI-1.607.tar.bz2 ++++++
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/DBI-1.605/Changes new/DBI-1.607/Changes
--- old/DBI-1.605/Changes	2008-06-16 20:59:58.000000000 +0200
+++ new/DBI-1.607/Changes	2008-07-22 23:45:46.000000000 +0200
@@ -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
+=head2 Changes in DBI 1.607 (svn r11571) 22nd July 2008
 
-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
+  NOTE: Perl 5.8.1 is now the minimum supported version.
+  If you need support for earlier versions send me a patch.
 
-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
+  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.
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/DBI-1.605/DBI.pm new/DBI-1.607/DBI.pm
--- old/DBI-1.605/DBI.pm	2008-06-16 20:59:58.000000000 +0200
+++ new/DBI-1.607/DBI.pm	2008-07-22 23:45:17.000000000 +0200
@@ -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.
@@ -5605,6 +5607,10 @@
 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()
 to tidy up the previous execution results before starting this new
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/DBI-1.605/DBI.xs new/DBI-1.607/DBI.xs
--- old/DBI-1.605/DBI.xs	2008-06-16 20:59:58.000000000 +0200
+++ new/DBI-1.607/DBI.xs	2008-07-22 22:47:32.000000000 +0200
@@ -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)) );
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/DBI-1.605/lib/DBD/Gofer.pm new/DBI-1.607/lib/DBD/Gofer.pm
--- old/DBI-1.605/lib/DBD/Gofer.pm	2008-06-16 18:07:34.000000000 +0200
+++ new/DBI-1.607/lib/DBD/Gofer.pm	2008-07-22 22:17:34.000000000 +0200
@@ -8,9 +8,9 @@
     require DBI::Gofer::Response;
     require Carp;
 
-    our $VERSION = sprintf("0.%06d", q$Revision: 11377 $ =~ /(\d+)/o);
+    our $VERSION = sprintf("0.%06d", q$Revision: 11565 $ =~ /(\d+)/o);
 
-#   $Id: Gofer.pm 11377 2008-06-03 22:18:04Z timbo $
+#   $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);
     }
 
 
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/DBI-1.605/lib/DBI/Gofer/Execute.pm new/DBI-1.607/lib/DBI/Gofer/Execute.pm
--- old/DBI-1.605/lib/DBI/Gofer/Execute.pm	2008-06-16 21:01:12.000000000 +0200
+++ new/DBI-1.607/lib/DBI/Gofer/Execute.pm	2008-07-20 08:43:18.000000000 +0200
@@ -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;
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/DBI-1.605/lib/DBI/Gofer/Response.pm new/DBI-1.607/lib/DBI/Gofer/Response.pm
--- old/DBI-1.605/lib/DBI/Gofer/Response.pm	2008-06-16 18:07:35.000000000 +0200
+++ new/DBI-1.607/lib/DBI/Gofer/Response.pm	2008-07-22 22:17:34.000000000 +0200
@@ -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
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/DBI-1.605/Makefile.PL new/DBI-1.607/Makefile.PL
--- old/DBI-1.605/Makefile.PL	2008-04-21 16:32:29.000000000 +0200
+++ new/DBI-1.607/Makefile.PL	2008-07-22 23:45:17.000000000 +0200
@@ -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";
 }
 
@@ -38,17 +38,6 @@
 
 $::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) {
     print "\n";
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/DBI-1.605/META.yml new/DBI-1.607/META.yml
--- old/DBI-1.605/META.yml	2008-06-16 21:18:27.000000000 +0200
+++ new/DBI-1.607/META.yml	2008-07-22 23:48:27.000000000 +0200
@@ -1,6 +1,6 @@
 --- #YAML:1.0
 name:                DBI
-version:             1.605
+version:             1.607
 abstract:            Database independent interface for Perl
 license:             perl
 author:              
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/DBI-1.605/t/40profile.t new/DBI-1.607/t/40profile.t
--- old/DBI-1.605/t/40profile.t	2008-03-13 16:08:29.000000000 +0100
+++ new/DBI-1.607/t/40profile.t	2008-07-20 08:39:20.000000000 +0200
@@ -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 ] }}
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn --exclude=.svnignore old/DBI-1.605/test.pl new/DBI-1.607/test.pl
--- old/DBI-1.605/test.pl	2007-04-25 17:57:17.000000000 +0200
+++ new/DBI-1.607/test.pl	2008-07-22 22:54:37.000000000 +0200
@@ -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);
     }


++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++



Remember to have fun...

---------------------------------------------------------------------
To unsubscribe, e-mail: opensuse-commit+unsubscribe@opensuse.org
For additional commands, e-mail: opensuse-commit+help@opensuse.org

    

root＠Hilbert.suse.de

tags

participants (1)