From: Rafael Kitover Date: Mon, 16 Feb 2009 00:20:27 +0000 (+0000) Subject: sorry, I fucked up the indentation... X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=7ba7a57d2b7df90e9c4618e49dcf03842df61c5e;p=dbsrgits%2FDBIx-Class-Historic.git sorry, I fucked up the indentation... --- diff --git a/lib/DBIx/Class/Storage/DBI/Oracle/Generic.pm b/lib/DBIx/Class/Storage/DBI/Oracle/Generic.pm index 87715ed..3ca19d9 100644 --- a/lib/DBIx/Class/Storage/DBI/Oracle/Generic.pm +++ b/lib/DBIx/Class/Storage/DBI/Oracle/Generic.pm @@ -87,25 +87,25 @@ sub _sequence_fetch { 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; }