From: Rafael Kitover <rkitover@cpan.org>
Date: Fri, 22 Jan 2010 12:28:03 +0000 (+0000)
Subject: better fix for portable PERL5LIB setting in test
X-Git-Tag: 0.05000~11
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=f1059ad4c1c9609ae1a44110c129f2cea850ed8d;p=dbsrgits%2FDBIx-Class-Schema-Loader.git

better fix for portable PERL5LIB setting in test
---

diff --git a/t/23dumpmore.t b/t/23dumpmore.t
index 29fee07..2d717e7 100644
--- a/t/23dumpmore.t
+++ b/t/23dumpmore.t
@@ -44,9 +44,8 @@ sub dump_dbicdump {
     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);