diff options
author | Rafael Garcia-Suarez <rgarciasuarez@mandriva.org> | 2004-09-22 04:58:47 +0000 |
---|---|---|
committer | Rafael Garcia-Suarez <rgarciasuarez@mandriva.org> | 2004-09-22 04:58:47 +0000 |
commit | 52be628d90b2e51d9d3440e72c1771ea7ee5c86f (patch) | |
tree | 4da881d9656cfbe176dcaec40673100f4a7743e1 | |
parent | 9b533aa6fc530c87435b493a18076de78bc57a74 (diff) | |
download | drakx-backup-do-not-use-52be628d90b2e51d9d3440e72c1771ea7ee5c86f.tar drakx-backup-do-not-use-52be628d90b2e51d9d3440e72c1771ea7ee5c86f.tar.gz drakx-backup-do-not-use-52be628d90b2e51d9d3440e72c1771ea7ee5c86f.tar.bz2 drakx-backup-do-not-use-52be628d90b2e51d9d3440e72c1771ea7ee5c86f.tar.xz drakx-backup-do-not-use-52be628d90b2e51d9d3440e72c1771ea7ee5c86f.zip |
Always return a hashref from pkgs::packageMedium()
-rw-r--r-- | perl-install/pkgs.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/perl-install/pkgs.pm b/perl-install/pkgs.pm index 734a321e2..0673fcf53 100644 --- a/perl-install/pkgs.pm +++ b/perl-install/pkgs.pm @@ -46,7 +46,7 @@ sub packageMedium { my ($packages, $p) = @_; $p or die "invalid package from\n" defined $_->{start} && defined $_->{end} or next; $p->id >= $_->{start} && $p->id <= $_->{end} and return $_; } - return } + return {} } sub cleanHeaders { my ($prefix) = @_; |