X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FApp%2FFatPacker.pm;h=ccd01769c6c473c3964032b83784ba2488a63a66;hb=7a3662c8657b2d0b15a467e7b09cbd449bc5bb03;hp=cdbb400fd69c64ecf0b0c6dd9e58badd56504093;hpb=abd7cf010a3586c6c2d136525b528eecc5d48f2f;p=p5sagit%2FApp-FatPacker.git diff --git a/lib/App/FatPacker.pm b/lib/App/FatPacker.pm index cdbb400..ccd0176 100644 --- a/lib/App/FatPacker.pm +++ b/lib/App/FatPacker.pm @@ -89,18 +89,25 @@ sub script_command_trace { } }; - if(@additional_use) { - $arg .= "," . join ",", @additional_use; - } - - $self->trace($arg, $args); + $self->trace( + use => \@additional_use, + args => $args, + output => $arg, + ); } sub trace { - my ($self, $arg, $args) = @_; + my ($self, %opts) = @_; + my $use = $opts{'use'}; + my $args = $opts{'args'}; + my $output = $opts{'output'}; + + if(@$use) { + $output .= "," . join ",", @$use; + } { - local $ENV{PERL5OPT} = '-MApp::FatPacker::Trace'.$arg; + local $ENV{PERL5OPT} = '-MApp::FatPacker::Trace'.$output; system $^X, @$args; } }