fix last patch
David Kamholz [Sat, 10 Dec 2005 17:19:50 +0000 (17:19 +0000)]
lib/DBIx/Class.pm
lib/DBIx/Class/DB.pm
lib/DBIx/Class/Storage/DBI.pm

index f1fa595..463e4fb 100644 (file)
@@ -82,15 +82,11 @@ manual below.
 
 =head1 SEE ALSO
 
-=over 4
+=head2 L<DBIx::Class::Core> - DBIC Core Classes
 
-=item L<DBIx::Class::Core> - DBIC Core Classes
+=head2 L<DBIx::Class::CDBICompat> - L<Class::DBI> Compat layer.
 
-=item L<DBIx::Class::CDBICompat> - L<Class::DBI> Compat layer.
-
-=item L<DBIx::Class::Manual> - User's manual.
-
-=back
+=head2 L<DBIx::Class::Manual> - User's manual.
 
 =head1 AUTHOR
 
index 08282df..e9ff08a 100644 (file)
@@ -72,7 +72,7 @@ Begins a transaction (does nothing if AutoCommit is off).
 
 =cut
 
-sub tx_commit { $_[0]->storage->tx_begin }
+sub tx_begin { $_[0]->storage->tx_begin }
 
 =head2 tx_commit
 
index 8b68667..7615adb 100644 (file)
@@ -154,7 +154,12 @@ Issues a commit against the current dbh.
 =cut
 
 sub tx_commit {
-  $_[0]->dbh->commit if --$TRANSACTION == 0;
+  if ($TRANSACTION == 0) {
+    $_[0]->dbh->commit;
+  }
+  else {
+    $_[0]->dbh->commit if --$TRANSACTION == 0;    
+  }
 }
 
 =head2 tx_rollback
@@ -164,7 +169,12 @@ Issues a rollback against the current dbh.
 =cut
 
 sub tx_rollback {
-  --$TRANSACTION == 0 ? $_[0]->dbh->rollback : die $@;
+  if ($TRANSACTION == 0) {
+    $_[0]->dbh->rollback;
+  }
+  else {
+    --$TRANSACTION == 0 ? $_[0]->dbh->rollback : die $@;    
+  }
 }
 
 sub _execute {