fix several bugs in read_package_desc

somehow passing back a ref and using a local file handle both contained
silly bugs

1 files changed, 5 insertions, 3 deletions

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;
     }