r76370 - in /trunk/libdbd-mock-perl: .shipit Changes MANIFEST Makefile.old debian/changelog lib/DBD/Mock.pm t/021_DBD_Mock_Session.t t/027_multiple_prepare_before_execute.t t/028_clone_warnings.t

mxey-guest at users.alioth.debian.org mxey-guest at users.alioth.debian.org
Thu Jun 23 14:50:14 UTC 2011


Author: mxey-guest
Date: Thu Jun 23 14:50:04 2011
New Revision: 76370

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=76370
Log:
New upstream release

Added:
    trunk/libdbd-mock-perl/Makefile.old
      - copied unchanged from r76369, branches/upstream/libdbd-mock-perl/current/Makefile.old
    trunk/libdbd-mock-perl/t/027_multiple_prepare_before_execute.t
      - copied unchanged from r76369, branches/upstream/libdbd-mock-perl/current/t/027_multiple_prepare_before_execute.t
    trunk/libdbd-mock-perl/t/028_clone_warnings.t
      - copied unchanged from r76369, branches/upstream/libdbd-mock-perl/current/t/028_clone_warnings.t
Removed:
    trunk/libdbd-mock-perl/.shipit
Modified:
    trunk/libdbd-mock-perl/Changes
    trunk/libdbd-mock-perl/MANIFEST
    trunk/libdbd-mock-perl/debian/changelog
    trunk/libdbd-mock-perl/lib/DBD/Mock.pm
    trunk/libdbd-mock-perl/t/021_DBD_Mock_Session.t

Modified: trunk/libdbd-mock-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdbd-mock-perl/Changes?rev=76370&op=diff
==============================================================================
--- trunk/libdbd-mock-perl/Changes (original)
+++ trunk/libdbd-mock-perl/Changes Thu Jun 23 14:50:04 2011
@@ -1,4 +1,13 @@
 Revision history for Perl extension DBD::Mock.
+
+1.41 June 22, 2011
+    - Changed incorrect verion number
+
+1.40 June 19, 2011
+    - Fixed bug rt44591 second preapre giving an error
+    - Fixed bug rt57981 warnings during clone
+    - Fixed bug rt63191 Synopsis errors
+    - Fixed bug rt66813 Google's group link in the POD
 
 1.39 November 9, 2008
     - If a statement handle had bound columns, then the fetch() and

Modified: trunk/libdbd-mock-perl/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdbd-mock-perl/MANIFEST?rev=76370&op=diff
==============================================================================
--- trunk/libdbd-mock-perl/MANIFEST (original)
+++ trunk/libdbd-mock-perl/MANIFEST Thu Jun 23 14:50:04 2011
@@ -1,4 +1,3 @@
-.shipit
 Build.PL
 Changes
 lib/DBD/Mock.pm

Modified: trunk/libdbd-mock-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdbd-mock-perl/debian/changelog?rev=76370&op=diff
==============================================================================
--- trunk/libdbd-mock-perl/debian/changelog (original)
+++ trunk/libdbd-mock-perl/debian/changelog Thu Jun 23 14:50:04 2011
@@ -1,4 +1,4 @@
-libdbd-mock-perl (1.39-2) UNRELEASED; urgency=low
+libdbd-mock-perl (1.41-1) UNRELEASED; urgency=low
 
   [ Nathan Handler ]
   * debian/watch: Update to ignore development releases.
@@ -6,7 +6,10 @@
   [ Ansgar Burchardt ]
   * Update my email address.
 
- -- Nathan Handler <nhandler at ubuntu.com>  Sat, 06 Jun 2009 01:33:43 +0000
+  [ Maximilian Gass ]
+  * New upstream release
+
+ -- Maximilian Gass <mxey at cloudconnected.org>  Thu, 23 Jun 2011 16:49:54 +0200
 
 libdbd-mock-perl (1.39-1) unstable; urgency=low
 

Modified: trunk/libdbd-mock-perl/lib/DBD/Mock.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdbd-mock-perl/lib/DBD/Mock.pm?rev=76370&op=diff
==============================================================================
--- trunk/libdbd-mock-perl/lib/DBD/Mock.pm (original)
+++ trunk/libdbd-mock-perl/lib/DBD/Mock.pm Thu Jun 23 14:50:04 2011
@@ -20,7 +20,7 @@
 
 require DBI;
 
-our $VERSION = '1.39';
+our $VERSION = '1.41';
 
 our $drh    = undef;    # will hold driver handle
 our $err    = 0;        # will hold any error codes
@@ -245,18 +245,6 @@
         return;
     }
 
-    if (my $session = $dbh->FETCH('mock_session')) {
-        eval {
-            $session->verify_statement($dbh, $statement);
-        };
-        if ($@) {
-            my $session_error = $@;
-            chomp $session_error;
-            $dbh->DBI::set_err(1, "Session Error: ${session_error}. Statement: ${statement}");
-            return;
-        }
-    }
-
     my $sth = DBI::_new_sth($dbh, { Statement => $statement });
 
     $sth->trace_msg("Preparing statement '${statement}'\n", 1);
@@ -437,7 +425,9 @@
 
 sub STORE {
     my ( $dbh, $attrib, $value ) = @_;
-    $dbh->trace_msg( "Storing DB attribute '$attrib' with '" . (defined($value) ? $value : 'undef') . "'\n" );
+
+    my $printed_value = $value || 'undef';
+    $dbh->trace_msg( "Storing DB attribute '$attrib' with '$printed_value'\n" );
 
     if ($attrib eq 'AutoCommit') {
         # These are magic DBI values that say we can handle AutoCommit
@@ -526,11 +516,11 @@
         return $dbh->{$attrib} = $value;
     }
     elsif ($attrib =~ /^(private_|dbi_|dbd_|[A-Z])/ ) {
-        $dbh->trace_msg("... storing non-driver attribute ($attrib) with value ($value) that DBI handles\n");
+        $dbh->trace_msg("... storing non-driver attribute ($attrib) with value ($printed_value) that DBI handles\n");
         return $dbh->SUPER::STORE($attrib, $value);
     }
   else {
-      $dbh->trace_msg("... storing non-driver attribute ($attrib) with value ($value) that DBI won't handle\n");
+      $dbh->trace_msg("... storing non-driver attribute ($attrib) with value ($printed_value) that DBI won't handle\n");
       return $dbh->{$attrib} = $value;
   }
 }
@@ -619,6 +609,7 @@
 
     if (my $session = $dbh->{mock_session}) {
         eval {
+            $session->verify_statement($dbh, $sth->{Statement});
             $session->verify_bound_params($dbh, $tracker->bound_params());
             my $idx = $session->{state_index} - 1;
             my @results = @{$session->{states}->[$idx]->{results}};
@@ -1284,7 +1275,7 @@
  # Now query the statement handle as to what has been done with it
  my $mock_params = $sth->{mock_params};
  print "Used statement: ", $sth->{mock_statement}, "\n",
-       "Bound parameters: ", join( ', ', @{ $params } ), "\n";
+       "Bound parameters: ", join( ', ', @{ $mock_params } ), "\n";
 
 =head1 DESCRIPTION
 
@@ -2065,7 +2056,7 @@
 
 We have created a B<DBD::Mock> google group for discussion/questions about this module.
 
-L<http://groups-beta.google.com/group/DBDMock>
+L<http://groups.google.com/group/DBDMock>
 
 =head1 ACKNOWLEDGEMENTS
 
@@ -2098,6 +2089,8 @@
 Copyright (C) 2004-2007 Stevan Little E<lt>stevan at iinteractive.comE<gt>
 
 Copyright (C) 2007 Rob Kinyon E<lt>rob.kinyon at gmail.comE<gt>
+
+Copyright (C) 2011 Mariano Wahlmann E<lt>dichoso  _at_ gmail.comE<gt>
 
 This library is free software; you can redistribute it and/or modify
 it under the same terms as Perl itself.
@@ -2110,4 +2103,6 @@
 
 Rob Kinyon E<lt>rob.kinyon at gmail.comE<gt>
 
+Mariano Wahlmann E<lt>dichoso _at_ gmail.com <gt>
+
 =cut

Modified: trunk/libdbd-mock-perl/t/021_DBD_Mock_Session.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libdbd-mock-perl/t/021_DBD_Mock_Session.t?rev=76370&op=diff
==============================================================================
--- trunk/libdbd-mock-perl/t/021_DBD_Mock_Session.t (original)
+++ trunk/libdbd-mock-perl/t/021_DBD_Mock_Session.t Thu Jun 23 14:50:04 2011
@@ -96,6 +96,7 @@
     eval {
         Login::Test::login($dbh, 'user', '****')
     };
+
     ok($@, '... got the exception');
     like($@, qr/Session Error\: Session states exhausted/, '... got the exception we expected');
     




More information about the Pkg-perl-cvs-commits mailing list