[Bast-commits] r8417 - branches/DBIx-Class-Schema-Loader/current/t

[caelum at dev.catalyst.perl.org]

Author: caelum
Date: 2010-01-22 12:28:03 +0000 (Fri, 22 Jan 2010)
New Revision: 8417

Modified:
   branches/DBIx-Class-Schema-Loader/current/t/23dumpmore.t
Log:
better fix for portable PERL5LIB setting in test

Modified: branches/DBIx-Class-Schema-Loader/current/t/23dumpmore.t
===================================================================
--- branches/DBIx-Class-Schema-Loader/current/t/23dumpmore.t	2010-01-22 11:53:13 UTC (rev 8416)
+++ branches/DBIx-Class-Schema-Loader/current/t/23dumpmore.t	2010-01-22 12:28:03 UTC (rev 8417)
@@ -44,9 +44,8 @@
     push @cmd, $tdata{classname}, $make_dbictest_db::dsn;
 
     # make sure our current @INC gets used by dbicdump
-    foreach my $inc ($ENV{PERL5LIB}, reverse @INC) {
-        splice @cmd, 1, 0, '-I', $inc;
-    }
+    use Config;
+    local $ENV{PERL5LIB} = join $Config{path_sep}, @INC, $ENV{PERL5LIB};
 
     my ($in, $out, $err);
     my $pid = open3($in, $out, $err, @cmd);