syntax error

Perl5 · Apr 8, 2010 · 89f85d8 · 89f85d8
1 parent c4e5e95
commit 89f85d8
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/lib/DBIx/Class/Storage/DBI/Sybase/Microsoft_SQL_Server.pm b/lib/DBIx/Class/Storage/DBI/Sybase/Microsoft_SQL_Server.pm
@@ -60,13 +60,13 @@ sub _get_server_version {
 
   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!"
-    });
+    );
   }
 }