[Bast-commits] r6671 - DBIx-Class/0.08/branches/run_file_against_storage/lib/DBIx/Class/Storage

[ribasushi at dev.catalyst.perl.org]

Author: ribasushi
Date: 2009-06-14 09:09:25 +0000 (Sun, 14 Jun 2009)
New Revision: 6671

Modified:
   DBIx-Class/0.08/branches/run_file_against_storage/lib/DBIx/Class/Storage/DBI.pm
Log:
More tabardation

Modified: DBIx-Class/0.08/branches/run_file_against_storage/lib/DBIx/Class/Storage/DBI.pm
===================================================================
--- DBIx-Class/0.08/branches/run_file_against_storage/lib/DBIx/Class/Storage/DBI.pm	2009-06-14 09:00:35 UTC (rev 6670)
+++ DBIx-Class/0.08/branches/run_file_against_storage/lib/DBIx/Class/Storage/DBI.pm	2009-06-14 09:09:25 UTC (rev 6671)
@@ -1993,19 +1993,20 @@
   if($statement) {
     return $self->dbh_do(sub {
       my ($storage, $dbh, $schema, $statement) = @_;
-	  my $return;
-	  $schema->_query_start($statement);
-	  eval {
+      my $return;
+      $schema->_query_start($statement);
+      eval {
         $return = $dbh->do($statement)
           || $schema->throw_exception("Can't execute line: $statement, Error: ". $dbh->errstr);		
-	  }; 
-	  if($@) {
-		carp "$@ (running $statement)";
-	  }
+      };
+      if($@) {
+        carp "$@ (running $statement)";
+      }
       $schema->_query_end($statement);
-	  return $return;
+      return $return;
     }, $self, $statement);
-  } else {
+  }
+  else {
     $self->debugobj->print("No statement to execute!")
      if $self->debug;
     return;