[Bast-commits] r9108 - DBIx-Class/0.08/trunk/lib/DBIx/Class/Storage/DBI/Sybase

[caelum at dev.catalyst.perl.org]

Author: caelum
Date: 2010-04-08 17:17:29 +0100 (Thu, 08 Apr 2010)
New Revision: 9108

Modified:
   DBIx-Class/0.08/trunk/lib/DBIx/Class/Storage/DBI/Sybase/Microsoft_SQL_Server.pm
Log:
syntax error

Modified: DBIx-Class/0.08/trunk/lib/DBIx/Class/Storage/DBI/Sybase/Microsoft_SQL_Server.pm
===================================================================
--- DBIx-Class/0.08/trunk/lib/DBIx/Class/Storage/DBI/Sybase/Microsoft_SQL_Server.pm	2010-04-08 12:03:35 UTC (rev 9107)
+++ DBIx-Class/0.08/trunk/lib/DBIx/Class/Storage/DBI/Sybase/Microsoft_SQL_Server.pm	2010-04-08 16:17:29 UTC (rev 9108)
@@ -60,13 +60,13 @@
 
   my $product_version = $self->_get_dbh->selectrow_hashref('xp_msver ProductVersion');
 
-  if ((my $version = $data->{Character_Value}) =~ /^(\d+)\./) {
+  if ((my $version = $product_version->{Character_Value}) =~ /^(\d+)\./) {
     return $version;
   }
   else {
     $self->throw_exception(
       "MSSQL Version Retrieval Failed, Your ProductVersion's Character_Value is missing or malformed!"
-    });
+    );
   }
 }