fix another Informix default parsing bug
Rafael Kitover [Fri, 30 Apr 2010 13:10:42 +0000 (09:10 -0400)]
lib/DBIx/Class/Schema/Loader/DBI/Informix.pm

index 01ca076..0f1c3d7 100644 (file)
@@ -200,7 +200,8 @@ EOF
         }
         else {
             $default = (split ' ', $default, 2)[-1];
-            $default =~ s/\s+\z//;
+
+            $default =~ s/\s+\z// if looks_like_number $default;
 
             # remove trailing 0s in floating point defaults
             $default =~ s/0+\z// if $default =~ /^\d+\.\d+\z/;