X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FApp%2FFatPacker.pm;h=a6a01e33a0f71c641ee06370362f6427dc169aec;hb=276a30c97c5932b6bdc4b0246102caec559d9ab8;hp=e7cdd918287e0e35367a2d07e056e3967cf94c8c;hpb=f1374d23f70cf8beee4a11820dd0e0da0d46d3e4;p=p5sagit%2FApp-FatPacker.git diff --git a/lib/App/FatPacker.pm b/lib/App/FatPacker.pm index e7cdd91..a6a01e3 100644 --- a/lib/App/FatPacker.pm +++ b/lib/App/FatPacker.pm @@ -83,9 +83,9 @@ sub script_command_trace { } my $arg = do { if ($to_stderr) { - "=>&STDERR" + "=&STDERR" } elsif ($file) { - "=>>${file}" + ">>${file}" } }; @@ -107,7 +107,7 @@ sub trace { } { - local $ENV{PERL5OPT} = '-MApp::FatPacker::Trace'.$output; + local $ENV{PERL5OPT} = '-MApp::FatPacker::Trace='.$output; system $^X, @$args; } }