diff options
-rwxr-xr-x | dh_elpa | 6 |
1 files changed, 2 insertions, 4 deletions
@@ -3,7 +3,6 @@ use strict; use Cwd qw{ getcwd }; use File::Temp qw{ tempdir tempfile}; -use File::Slurp; use IO::Handle; use Debian::Debhelper::Dh_Lib; @@ -25,9 +24,8 @@ sub doit_quietly { if (!$ret){ $exitcode=$?; - close($handle) or die "$!"; - my $log = read_file ($tmpfile); - print $log; + seek $handle, 0, 0 or die "$!"; + print while (<$handle>); my $command=join(" ",@_); error("$command returned exit code ".($exitcode >> 8)); } |