X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F23dumpmore.t;h=2d717e7535e623047ab6c4b0b930d383e9ae811a;hb=f1059ad4c1c9609ae1a44110c129f2cea850ed8d;hp=29fee07c61e6ad09eb1b52f5b09623bf32c3c873;hpb=281d0f3e72ad8c7c44e99496bc6b559af7aaa6fa;p=dbsrgits%2FDBIx-Class-Schema-Loader.git

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);