[Bast-commits] r6917 - in DBIx-Class/0.08/branches/syb_connected/lib/DBIx/Class/Storage/DBI: Oracle Sybase

[caelum at dev.catalyst.perl.org]

Author: caelum
Date: 2009-07-01 14:03:22 +0000 (Wed, 01 Jul 2009)
New Revision: 6917

Modified:
   DBIx-Class/0.08/branches/syb_connected/lib/DBIx/Class/Storage/DBI/Oracle/Generic.pm
   DBIx-Class/0.08/branches/syb_connected/lib/DBIx/Class/Storage/DBI/Sybase/Base.pm
Log:
use ->do instead of ->prepare_cached in oracle's connected() too

Modified: DBIx-Class/0.08/branches/syb_connected/lib/DBIx/Class/Storage/DBI/Oracle/Generic.pm
===================================================================
--- DBIx-Class/0.08/branches/syb_connected/lib/DBIx/Class/Storage/DBI/Oracle/Generic.pm	2009-07-01 13:55:21 UTC (rev 6916)
+++ DBIx-Class/0.08/branches/syb_connected/lib/DBIx/Class/Storage/DBI/Oracle/Generic.pm	2009-07-01 14:03:22 UTC (rev 6917)
@@ -99,16 +99,13 @@
 
   if (not $self->next::method(@_)) {
     return 0;
-  }
-  else {
+  } else {
     my $dbh = $self->_dbh;
 
     local $dbh->{RaiseError} = 1;
 
     eval {
-      my $ping_sth = $dbh->prepare_cached("select 1 from dual");
-      $ping_sth->execute;
-      $ping_sth->finish;
+      $dbh->do("select 1 from dual");
     };
 
     return $@ ? 0 : 1;

Modified: DBIx-Class/0.08/branches/syb_connected/lib/DBIx/Class/Storage/DBI/Sybase/Base.pm
===================================================================
--- DBIx-Class/0.08/branches/syb_connected/lib/DBIx/Class/Storage/DBI/Sybase/Base.pm	2009-07-01 13:55:21 UTC (rev 6916)
+++ DBIx-Class/0.08/branches/syb_connected/lib/DBIx/Class/Storage/DBI/Sybase/Base.pm	2009-07-01 14:03:22 UTC (rev 6917)
@@ -6,7 +6,7 @@
 =head1 NAME
 
 DBIx::Class::Storage::DBI::Sybase::Base - Common functionality for drivers using
-L<DBD::Sybase>
+DBD::Sybase
 
 =head1 METHODS