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