From: Tatsuhiko Miyagawa <miyagawa@bulknews.net>
Date: Wed, 3 Apr 2013 22:20:02 +0000 (-0700)
Subject: Removed apparently unused piece of code, that prevents the use of ->trace() to slurp... 
X-Git-Tag: v0.009015~2^2~5
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=1ea234747b1d7f43fd394c640089fd284ac8ad76;p=p5sagit%2FApp-FatPacker.git

Removed apparently unused piece of code, that prevents the use of ->trace() to slurp the output
---

diff --git a/lib/App/FatPacker.pm b/lib/App/FatPacker.pm
index 8cf5462..05c8db7 100644
--- a/lib/App/FatPacker.pm
+++ b/lib/App/FatPacker.pm
@@ -101,12 +101,7 @@ sub script_command_trace {
 sub trace {
   my ($self, %opts) = @_;
 
-  my $capture;
-
-  my $output = $opts{output} || do {
-    $capture++; '>&STDOUT'
-  };
-
+  my $output = $opts{output};
   my $trace_opts = join ',', $output||'>&STDOUT', @{$opts{use}||[]};
 
   local $ENV{PERL5OPT} = '-MApp::FatPacker::Trace='.$trace_opts;