[Bast-commits] r3274 - branches/DBIx-Class-current/lib/DBIx/Class/Storage/DBI

[castaway at dev.catalyst.perl.org]

Author: castaway
Date: 2007-05-09 23:42:11 +0100 (Wed, 09 May 2007)
New Revision: 3274

Modified:
   branches/DBIx-Class-current/lib/DBIx/Class/Storage/DBI/SQLite.pm
Log:
No nested transactions in SQLite.


Modified: branches/DBIx-Class-current/lib/DBIx/Class/Storage/DBI/SQLite.pm
===================================================================
--- branches/DBIx-Class-current/lib/DBIx/Class/Storage/DBI/SQLite.pm	2007-05-09 22:02:07 UTC (rev 3273)
+++ branches/DBIx-Class-current/lib/DBIx/Class/Storage/DBI/SQLite.pm	2007-05-09 22:42:11 UTC (rev 3274)
@@ -45,6 +45,15 @@
   return $backupfile;
 }
 
+sub txn_begin
+{
+  my $self = shift;
+  return if(!$self->{transaction_depth});
+
+  $self->next::method(@_);
+}
+
+
 1;
 
 =head1 NAME