[Bast-commits] r8843 - DBIx-Class/0.08/trunk/lib/DBIx/Class/Optional

[ribasushi at dev.catalyst.perl.org]

Author: ribasushi
Date: 2010-03-02 09:29:18 +0000 (Tue, 02 Mar 2010)
New Revision: 8843

Modified:
   DBIx-Class/0.08/trunk/lib/DBIx/Class/Optional/Dependencies.pm
Log:
Do not autoviv empty ENV vars

Modified: DBIx-Class/0.08/trunk/lib/DBIx/Class/Optional/Dependencies.pm
===================================================================
--- DBIx-Class/0.08/trunk/lib/DBIx/Class/Optional/Dependencies.pm	2010-03-01 17:04:19 UTC (rev 8842)
+++ DBIx-Class/0.08/trunk/lib/DBIx/Class/Optional/Dependencies.pm	2010-03-02 09:29:18 UTC (rev 8843)
@@ -176,7 +176,7 @@
 
   rdbms_asa => {
     req => {
-      (scalar grep $_, @ENV{qw/DBICTEST_SYBASE_ASA_DSN DBICTEST_SYBASE_ASA_ODBC_DSN/})
+      (scalar grep { $ENV{$_} } (qw/DBICTEST_SYBASE_ASA_DSN DBICTEST_SYBASE_ASA_ODBC_DSN/) )
         ? (
           'DateTime::Format::Strptime' => 0,
         ) : ()