From: Graham Knop <haarg@haarg.org>
Date: Sat, 8 Mar 2014 21:43:09 +0000 (-0500)
Subject: add to instead of overwriting PERL5OPT
X-Git-Tag: v0.010001~3
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=a73e80c4ab6f49233cc2009b17cc757ca1fd5f2c;p=p5sagit%2FApp-FatPacker.git

add to instead of overwriting PERL5OPT
---

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}||[]};