[Bast-commits] r4676 - trunk/DBIx-Class-Journal/lib/DBIx/Class/Schema

[nothingmuch at dev.catalyst.perl.org]

Author: nothingmuch
Date: 2008-07-30 04:52:22 +0100 (Wed, 30 Jul 2008)
New Revision: 4676

Modified:
   trunk/DBIx-Class-Journal/lib/DBIx/Class/Schema/Journal.pm
Log:
detab

Modified: trunk/DBIx-Class-Journal/lib/DBIx/Class/Schema/Journal.pm
===================================================================
--- trunk/DBIx-Class-Journal/lib/DBIx/Class/Schema/Journal.pm	2008-07-30 03:51:44 UTC (rev 4675)
+++ trunk/DBIx-Class-Journal/lib/DBIx/Class/Schema/Journal.pm	2008-07-30 03:52:22 UTC (rev 4676)
@@ -187,19 +187,19 @@
 
         # wrap the thunk with a new changeset creation
         $code = sub {
-			my $changeset = $jschema->journal_create_changeset( parent_id => $current_changeset );
-			local $current_changeset_ref->{changeset} = $changeset->ID;
-			$user_code->(@_);
-		};
+            my $changeset = $jschema->journal_create_changeset( parent_id => $current_changeset );
+            local $current_changeset_ref->{changeset} = $changeset->id;
+            $user_code->(@_);
+        };
 
     }
 
-	if ( $jschema != $self ) {
-		my $inner_code = $code;
-		$code = sub { $jschema->txn_do($inner_code, @_) };
-	}
+    if ( $jschema->storage != $self->storage ) {
+        my $inner_code = $code;
+        $code = sub { $jschema->txn_do($inner_code, @_) };
+    }
 
-	return $self->next::method($code, @args);
+    return $self->next::method($code, @args);
 }
 
 sub changeset_user