[Bast-commits] r9056 - in DBIx-Class/0.08/trunk: lib/DBIx/Class/Storage t

[caelum at dev.catalyst.perl.org]

Author: caelum
Date: 2010-03-26 08:55:46 +0000 (Fri, 26 Mar 2010)
New Revision: 9056

Modified:
   DBIx-Class/0.08/trunk/lib/DBIx/Class/Storage/DBI.pm
   DBIx-Class/0.08/trunk/t/748informix.t
Log:
a couple minor Informix fixes

Modified: DBIx-Class/0.08/trunk/lib/DBIx/Class/Storage/DBI.pm
===================================================================
--- DBIx-Class/0.08/trunk/lib/DBIx/Class/Storage/DBI.pm	2010-03-25 06:37:36 UTC (rev 9055)
+++ DBIx-Class/0.08/trunk/lib/DBIx/Class/Storage/DBI.pm	2010-03-26 08:55:46 UTC (rev 9056)
@@ -943,6 +943,8 @@
   if (defined $dbms_ver) {
     $info{dbms_ver} = $dbms_ver;
 
+    ($dbms_ver) = $dbms_ver =~ /^(\S+)/;
+
     my @verparts = split /\./, $dbms_ver;
     $info{dbms_ver_normalized} = sprintf "%d.%03d%03d", @verparts;
   }

Modified: DBIx-Class/0.08/trunk/t/748informix.t
===================================================================
--- DBIx-Class/0.08/trunk/t/748informix.t	2010-03-25 06:37:36 UTC (rev 9055)
+++ DBIx-Class/0.08/trunk/t/748informix.t	2010-03-26 08:55:46 UTC (rev 9056)
@@ -11,7 +11,7 @@
 #warn "$dsn $user $pass";
 
 plan skip_all => 'Set $ENV{DBICTEST_INFORMIX_DSN}, _USER and _PASS to run this test'
-  unless ($dsn && $user);
+  unless $dsn;
 
 my $schema = DBICTest::Schema->connect($dsn, $user, $pass);