From 55b0c67e251da150cc087b3fa06be711c1338e91 Mon Sep 17 00:00:00 2001
From: David Bremner <david@tethera.net>
Date: Mon, 13 Jul 2015 10:43:11 +0200
Subject: replace dependency on File::Slurp

Hopefully I'm doing this "read back the temp file" thing correctly
---
 dh_elpa | 6 ++----
 1 file 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));
   }
-- 
cgit v1.2.3