diff options
Diffstat (limited to 'dh_elpa')
-rwxr-xr-x | dh_elpa | 8 |
1 files changed, 5 insertions, 3 deletions
@@ -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; } |