[Bast-commits] r6915 - DBIx-Class/0.08/branches/syb_connected/lib/DBIx/Class/Storage/DBI/Sybase

[caelum at dev.catalyst.perl.org]

Author: caelum
Date: 2009-07-01 13:45:05 +0000 (Wed, 01 Jul 2009)
New Revision: 6915

Modified:
   DBIx-Class/0.08/branches/syb_connected/lib/DBIx/Class/Storage/DBI/Sybase/Base.pm
Log:
use dbh->do for connected instead of prepare_cached

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:35:07 UTC (rev 6914)
+++ DBIx-Class/0.08/branches/syb_connected/lib/DBIx/Class/Storage/DBI/Sybase/Base.pm	2009-07-01 13:45:05 UTC (rev 6915)
@@ -24,17 +24,10 @@
 sub connected {
   my $self = shift;
 
-  my $super = eval { $self->next::method(@_) };
-
-  return $super unless $@;
-
   my $dbh = $self->_dbh;
   local $dbh->{RaiseError} = 1;
-
   eval {
-    my $ping_sth = $dbh->prepare_cached("select 1");
-    $ping_sth->execute;
-    $ping_sth->finish;
+    $dbh->do('select 1');
   };
 
   return $@ ? 0 : 1;