diff options
author | David Bremner <david@tethera.net> | 2015-07-13 10:43:11 +0200 |
---|---|---|
committer | David Bremner <david@tethera.net> | 2015-07-13 10:43:11 +0200 |
commit | 55b0c67e251da150cc087b3fa06be711c1338e91 (patch) | |
tree | a6f7b666a5a53016f4f48dbc2d0a85d86da36a8b /dh_elpa | |
parent | 617a56650d14c2078a09954bd86e56b51d2c4db0 (diff) |
replace dependency on File::Slurp
Hopefully I'm doing this "read back the temp file" thing correctly
Diffstat (limited to 'dh_elpa')
-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)); } |