[Bast-commits] r5480 - DBIx-Class/0.08/trunk/lib/DBIx/Class/Storage/DBI/Oracle

[caelum at dev.catalyst.perl.org]

Author: caelum
Date: 2009-02-16 00:20:27 +0000 (Mon, 16 Feb 2009)
New Revision: 5480

Modified:
   DBIx-Class/0.08/trunk/lib/DBIx/Class/Storage/DBI/Oracle/Generic.pm
Log:
sorry, I fucked up the indentation...

Modified: DBIx-Class/0.08/trunk/lib/DBIx/Class/Storage/DBI/Oracle/Generic.pm
===================================================================
--- DBIx-Class/0.08/trunk/lib/DBIx/Class/Storage/DBI/Oracle/Generic.pm	2009-02-15 23:30:00 UTC (rev 5479)
+++ DBIx-Class/0.08/trunk/lib/DBIx/Class/Storage/DBI/Oracle/Generic.pm	2009-02-16 00:20:27 UTC (rev 5480)
@@ -87,25 +87,25 @@
 
 sub connected {
   my $self = shift;
-  
+
   if ($self->SUPER::connected(@_)) {
-      my $dbh = $self->_dbh;
-  
-      my $ping_sth = $dbh->prepare_cached("select 1 from dual");
-  
-      local $dbh->{RaiseError} = 1;
-      eval {
-          $ping_sth->execute;
-          $ping_sth->finish;
-      };
-  
-      if ($@) {
-          return 0;
-      } else {
-          return 1;
-      }
+    my $dbh = $self->_dbh;
+
+    my $ping_sth = $dbh->prepare_cached("select 1 from dual");
+
+    local $dbh->{RaiseError} = 1;
+    eval {
+      $ping_sth->execute;
+      $ping_sth->finish;
+    };
+
+    if ($@) {
+      return 0;
+    } else {
+      return 1;
+    }
   }
-  
+
   return 0;
 }