r76350 - in /trunk/libima-dbi-contextual-perl: Changes META.yml debian/changelog lib/Ima/DBI/Contextual.pm t/testdb
gregoa at users.alioth.debian.org
gregoa at users.alioth.debian.org
Thu Jun 23 13:17:09 UTC 2011
Author: gregoa
Date: Thu Jun 23 13:17:06 2011
New Revision: 76350
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=76350
Log:
New upstream release
Modified:
trunk/libima-dbi-contextual-perl/Changes
trunk/libima-dbi-contextual-perl/META.yml
trunk/libima-dbi-contextual-perl/debian/changelog
trunk/libima-dbi-contextual-perl/lib/Ima/DBI/Contextual.pm
trunk/libima-dbi-contextual-perl/t/testdb
Modified: trunk/libima-dbi-contextual-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libima-dbi-contextual-perl/Changes?rev=76350&op=diff
==============================================================================
--- trunk/libima-dbi-contextual-perl/Changes (original)
+++ trunk/libima-dbi-contextual-perl/Changes Thu Jun 23 13:17:06 2011
@@ -1,3 +1,13 @@
+
+2011-06-05 v1.001
+ - Deprecated commit and rollback methods.
+
+2011-06-01 v1.000
+ - After a year of solid performance, I'm giving Ima::DBI::Contextual a 1.0 version number.
+ - Removed warnings that look like this:
+ "Issuing rollback() due to DESTROY without explicit disconnect()..."
+ - The warnings were caused when the db connection has gone away and we reconnect.
+ - No other changes.
2010-05-21 v0.006
- db_Main was failing because $dbh->ping alone couldn't detect a dead handle.
Modified: trunk/libima-dbi-contextual-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libima-dbi-contextual-perl/META.yml?rev=76350&op=diff
==============================================================================
--- trunk/libima-dbi-contextual-perl/META.yml (original)
+++ trunk/libima-dbi-contextual-perl/META.yml Thu Jun 23 13:17:06 2011
@@ -1,6 +1,6 @@
--- #YAML:1.0
name: Ima::DBI::Contextual
-version: 0.006
+version: 1.001
abstract: Liteweight dbi handle cache and utility methods.
author:
- John Drago <jdrago_999 at yahoo.com>
Modified: trunk/libima-dbi-contextual-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libima-dbi-contextual-perl/debian/changelog?rev=76350&op=diff
==============================================================================
--- trunk/libima-dbi-contextual-perl/debian/changelog (original)
+++ trunk/libima-dbi-contextual-perl/debian/changelog Thu Jun 23 13:17:06 2011
@@ -1,3 +1,9 @@
+libima-dbi-contextual-perl (1.001-1) UNRELEASED; urgency=low
+
+ * New upstream release
+
+ -- gregor herrmann <gregoa at debian.org> Thu, 23 Jun 2011 15:16:25 +0200
+
libima-dbi-contextual-perl (0.006-1) unstable; urgency=low
* Initial Release. (Closes: #623972)
Modified: trunk/libima-dbi-contextual-perl/lib/Ima/DBI/Contextual.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libima-dbi-contextual-perl/lib/Ima/DBI/Contextual.pm?rev=76350&op=diff
==============================================================================
--- trunk/libima-dbi-contextual-perl/lib/Ima/DBI/Contextual.pm (original)
+++ trunk/libima-dbi-contextual-perl/lib/Ima/DBI/Contextual.pm Thu Jun 23 13:17:06 2011
@@ -7,7 +7,7 @@
use DBI;
use Digest::MD5 'md5_hex';
-our $VERSION = '0.006';
+our $VERSION = '1.001';
my %contexts = ( );
@@ -58,6 +58,9 @@
}
else
{
+ # Avoid the dreaded "Issuing rollback() due to DESTROY without explicit disconnect()":
+ eval { $context->{dbh}->disconnect() }
+ if $context->{dbh};
$context->{dbh} = DBI->connect( @dsn );
return $context->{dbh};
}# end if()
@@ -106,7 +109,7 @@
sub rollback
{
my ($class) = @_;
-
+ confess 'Deprecated';
$class->db_Main->rollback;
}# end dbi_rollback()
@@ -114,7 +117,7 @@
sub commit
{
my ($class) = @_;
-
+ confess 'Deprecated';
$class->db_Main->commit;
}# end dbi_commit()
@@ -140,6 +143,9 @@
Then, elsewhere:
my $dbh = Foo->db_Main;
+
+ # Use $dbh like you normally would:
+ my $sth = $dbh->prepare( ... );
=head1 DESCRIPTION
Modified: trunk/libima-dbi-contextual-perl/t/testdb
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libima-dbi-contextual-perl/t/testdb?rev=76350&op=diff
==============================================================================
Binary files - no diff available.
More information about the Pkg-perl-cvs-commits
mailing list