[Bast-commits] r8054 - DBIx-Class/0.08/branches/mssql_rno_pagination/lib/DBIx/Class/Storage/DBI/ODBC

[caelum at dev.catalyst.perl.org]

Author: caelum
Date: 2009-12-09 15:12:56 +0000 (Wed, 09 Dec 2009)
New Revision: 8054

Modified:
   DBIx-Class/0.08/branches/mssql_rno_pagination/lib/DBIx/Class/Storage/DBI/ODBC/Microsoft_SQL_Server.pm
Log:
fix _get_mssql_version for ODBC

Modified: DBIx-Class/0.08/branches/mssql_rno_pagination/lib/DBIx/Class/Storage/DBI/ODBC/Microsoft_SQL_Server.pm
===================================================================
--- DBIx-Class/0.08/branches/mssql_rno_pagination/lib/DBIx/Class/Storage/DBI/ODBC/Microsoft_SQL_Server.pm	2009-12-09 10:25:09 UTC (rev 8053)
+++ DBIx-Class/0.08/branches/mssql_rno_pagination/lib/DBIx/Class/Storage/DBI/ODBC/Microsoft_SQL_Server.pm	2009-12-09 15:12:56 UTC (rev 8054)
@@ -175,6 +175,14 @@
   }
 }
 
+sub _get_mssql_version {
+  my $self = shift;
+
+  my ($version) = $self->_get_dbh->get_info(18) =~ /^(\d+)/;
+
+  return $version;
+}
+
 1;
 
 =head1 AUTHOR