[Bast-commits] r6918 - 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 15:20:52 +0000 (Wed, 01 Jul 2009)
New Revision: 6918

Modified:
   DBIx-Class/0.08/branches/syb_connected/lib/DBIx/Class/Storage/DBI/Sybase/Base.pm
Log:
fix segfault with old DBD::Sybase

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 14:03:22 UTC (rev 6917)
+++ DBIx-Class/0.08/branches/syb_connected/lib/DBIx/Class/Storage/DBI/Sybase/Base.pm	2009-07-01 15:20:52 UTC (rev 6918)
@@ -24,7 +24,9 @@
 sub connected {
   my $self = shift;
 
-  my $dbh = $self->_dbh;
+  my $dbh = $self->_dbh or return 0;
+  $dbh->FETCH('Active') or return 0;
+
   local $dbh->{RaiseError} = 1;
   eval {
     $dbh->do('select 1');