From 9fb9c7a29f9bf539fceb1ce802807b5f337f9d6d Mon Sep 17 00:00:00 2001
From: David Bremner <bremner@debian.org>
Date: Tue, 22 Sep 2015 09:38:51 -0300
Subject: fix several bugs in read_package_desc

somehow passing back a ref and using a local file handle both contained
silly bugs
---
 dh_elpa | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

(limited to 'dh_elpa')

diff --git a/dh_elpa b/dh_elpa
index e396fc4..dec995e 100755
--- a/dh_elpa
+++ b/dh_elpa
@@ -78,14 +78,16 @@ sub doit_quietly {
 
 sub read_package_desc {
   my ($descdir, $package) = @_;
-  my %desc = {};
+  my %desc = ();
 
   my $descfile="${descdir}/${package}.desc";
 
-  open my $fh,'<', $descfile or
+  my $fh;
+
+  open $fh,'<', $descfile or
     error "failed to open $descfile";
 
-  while (<DESC>) {
+  while (<$fh>) {
     if (m/([^:]+):\s*(.*)\s*$/) {
       $desc{$1} = $2;
     }
-- 
cgit v1.2.3