[Bast-commits] r7076 - DBIx-Class/0.08/branches/sybase/lib/DBIx/Class/Storage/DBI

[caelum at dev.catalyst.perl.org]

Author: caelum
Date: 2009-07-20 17:13:25 +0000 (Mon, 20 Jul 2009)
New Revision: 7076

Modified:
   DBIx-Class/0.08/branches/sybase/lib/DBIx/Class/Storage/DBI/Sybase.pm
Log:
better check for FreeTDS thanks to arcanez

Modified: DBIx-Class/0.08/branches/sybase/lib/DBIx/Class/Storage/DBI/Sybase.pm
===================================================================
--- DBIx-Class/0.08/branches/sybase/lib/DBIx/Class/Storage/DBI/Sybase.pm	2009-07-20 17:06:46 UTC (rev 7075)
+++ DBIx-Class/0.08/branches/sybase/lib/DBIx/Class/Storage/DBI/Sybase.pm	2009-07-20 17:13:25 UTC (rev 7076)
@@ -102,9 +102,11 @@
 
     return $using_freetds if defined $using_freetds;
 
-    local $dbh->{syb_rowcount} = 1; # this is broken in freetds
-    $using_freetds = @{ $dbh->selectall_arrayref('sp_help') } != 1;
+#    local $dbh->{syb_rowcount} = 1; # this is broken in freetds
+#    $using_freetds = @{ $dbh->selectall_arrayref('sp_help') } != 1;
 
+    $using_freetds = $dbh->{syb_oc_version} =~ /freetds/i;
+
     return $using_freetds;
   }
 }