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

[caelum at dev.catalyst.perl.org]

Author: caelum
Date: 2009-10-31 20:22:37 +0000 (Sat, 31 Oct 2009)
New Revision: 7831

Modified:
   DBIx-Class/0.08/trunk/lib/DBIx/Class/Storage/DBI/SQLite.pm
Log:
fix regex to numify sqlite_version

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	2009-10-31 20:04:39 UTC (rev 7830)
+++ DBIx-Class/0.08/trunk/lib/DBIx/Class/Storage/DBI/SQLite.pm	2009-10-31 20:22:37 UTC (rev 7831)
@@ -56,7 +56,7 @@
   my $sqlite_version = $self->_get_dbh->{sqlite_version};
 
   # numify, SQLT does a numeric comparison
-  $sqlite_version =~ s/^(\d+) \. (\d+) (?: \. (\d+)) .*/${1}.${2}/x;
+  $sqlite_version =~ s/^(\d+) \. (\d+) (?: \. (\d+))? .*/${1}.${2}/x;
 
   $sqltargs->{producer_args}{sqlite_version} = $sqlite_version;