[Bast-commits] r3789 - DBIx-Class/0.08/branches/jdbicompat/lib/DBIx/Class/JDBICompat

matthewt at dev.catalyst.perl.org matthewt at dev.catalyst.perl.org
Wed Sep 26 04:27:27 GMT 2007


Author: matthewt
Date: 2007-09-26 04:27:26 +0100 (Wed, 26 Sep 2007)
New Revision: 3789

Modified:
   DBIx-Class/0.08/branches/jdbicompat/lib/DBIx/Class/JDBICompat/Handle.pm
Log:
typos

Modified: DBIx-Class/0.08/branches/jdbicompat/lib/DBIx/Class/JDBICompat/Handle.pm
===================================================================
--- DBIx-Class/0.08/branches/jdbicompat/lib/DBIx/Class/JDBICompat/Handle.pm	2007-09-26 02:45:35 UTC (rev 3788)
+++ DBIx-Class/0.08/branches/jdbicompat/lib/DBIx/Class/JDBICompat/Handle.pm	2007-09-26 03:27:26 UTC (rev 3789)
@@ -269,11 +269,7 @@
 
 sub disconnect {
     my $self = shift;
-    if ( $self->dbh ) {
-        return ( $self->dbh->disconnect() );
-    } else {
-        return;
-    }
+    $self->schema->storage->disconnect;
 }
 
 =head2 dbh [HANDLE]
@@ -667,7 +663,7 @@
     $self->schema->storage->txn_rollback;
 
     if ($force) {
-        while ($self->schema->storage->transcation_depth) {
+        while ($self->schema->storage->transaction_depth) {
             $self->schema->storage->txn_rollback;
         }
     }
@@ -693,7 +689,7 @@
 
 sub transaction_depth {
     my $self = shift;
-    return $self->schema->storage->tansaction_depth;
+    return $self->schema->storage->transaction_depth;
 }
 
 =head2 apply_limits STATEMENTREF ROWS_PER_PAGE FIRST_ROW




More information about the Bast-commits mailing list