fix regex to numify sqlite_version
Rafael Kitover [Sat, 31 Oct 2009 20:22:37 +0000 (20:22 +0000)]
lib/DBIx/Class/Storage/DBI/SQLite.pm

index 48d55fe..c119f4e 100644 (file)
@@ -56,7 +56,7 @@ sub deployment_statements {
   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;