X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=p5sagit%2FApp-FatPacker.git;a=blobdiff_plain;f=lib%2FApp%2FFatPacker.pm;h=6924eb2d2351381065f27aa45b6e8750175f4a5f;hp=1aaba1c53019ed1d00b3afe0dc3f78872879b06a;hb=a73e80c4ab6f49233cc2009b17cc757ca1fd5f2c;hpb=27d3952a8cca8fbb864649cfbbed50a95b5d4530

diff --git a/lib/App/FatPacker.pm b/lib/App/FatPacker.pm
index 1aaba1c..6924eb2 100644
--- a/lib/App/FatPacker.pm
+++ b/lib/App/FatPacker.pm
@@ -117,7 +117,8 @@ sub trace {
   my $output = $opts{output};
   my $trace_opts = join ',', $output||'>&STDOUT', @{$opts{use}||[]};
 
-  local $ENV{PERL5OPT} = '-MApp::FatPacker::Trace='.$trace_opts;
+  local $ENV{PERL5OPT} = join ' ',
+    ($ENV{PERL5OPT}||()), '-MApp::FatPacker::Trace='.$trace_opts;
 
   my @args = @{$opts{args}||[]};