replace dependency on File::Slurp

Hopefully I'm doing this "read back the temp file" thing correctly

1 files changed, 2 insertions, 4 deletions

diff --git a/dh_elpa b/dh_elpa
index b3ed928..83db575 100755
--- a/dh_elpa
+++ b/dh_elpa
@@ -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));
   }