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

[caelum at dev.catalyst.perl.org]

Author: caelum
Date: 2010-03-25 05:32:51 +0000 (Thu, 25 Mar 2010)
New Revision: 9054

Modified:
   DBIx-Class/0.08/trunk/lib/DBIx/Class/Storage/DBI/SQLite.pm
Log:
minor fix for SQLite version check

Modified: DBIx-Class/0.08/trunk/lib/DBIx/Class/Storage/DBI/SQLite.pm
===================================================================
--- DBIx-Class/0.08/trunk/lib/DBIx/Class/Storage/DBI/SQLite.pm	2010-03-25 00:24:09 UTC (rev 9053)
+++ DBIx-Class/0.08/trunk/lib/DBIx/Class/Storage/DBI/SQLite.pm	2010-03-25 05:32:51 UTC (rev 9054)
@@ -50,12 +50,13 @@
 
   $sqltargs ||= {};
 
-  my $sqlite_version = $self->_server_info->{dbms_ver};
+  my $sqlite_version = eval { $self->_server_info->{dbms_ver} };
+  $sqlite_version ||= '';
 
   # numify, SQLT does a numeric comparison
   $sqlite_version =~ s/^(\d+) \. (\d+) (?: \. (\d+))? .*/${1}.${2}/x;
 
-  $sqltargs->{producer_args}{sqlite_version} = $sqlite_version;
+  $sqltargs->{producer_args}{sqlite_version} = $sqlite_version if $sqlite_version;
 
   $self->next::method($schema, $type, $version, $dir, $sqltargs, @rest);
 }