protect @INC when re-invoking

[gitmo/MooseX-Runnable.git] / lib / MooseX / Runnable / Util / ArgParser.pm

diff --git a/lib/MooseX/Runnable/Util/ArgParser.pm b/lib/MooseX/Runnable/Util/ArgParser.pm
index 833f983..965d39f 100644 (file)
--- a/lib/MooseX/Runnable/Util/ArgParser.pm
+++ b/lib/MooseX/Runnable/Util/ArgParser.pm
@@ -232,7 +232,12 @@ sub guess_cmdline {
     my @without_plugins = @{$opts{without_plugins} || []};
 
     # invoke mx-run
-    my @cmdline = ($^X, @perl_flags, $FindBin::Bin.'/'.$FindBin::Script);
+    my @cmdline = (
+        $^X,
+        (map { "-I$_" } @INC),
+        @perl_flags,
+        $FindBin::Bin.'/'.$FindBin::Script,
+    );
     push @cmdline, map { "-I$_" } $self->include_paths;
     push @cmdline, map { "-M$_" } $self->modules;