summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorRafael Garcia-Suarez <rgarciasuarez@mandriva.org>2004-09-22 04:58:47 +0000
committerRafael Garcia-Suarez <rgarciasuarez@mandriva.org>2004-09-22 04:58:47 +0000
commit52be628d90b2e51d9d3440e72c1771ea7ee5c86f (patch)
tree4da881d9656cfbe176dcaec40673100f4a7743e1 /perl-install
parent9b533aa6fc530c87435b493a18076de78bc57a74 (diff)
downloaddrakx-52be628d90b2e51d9d3440e72c1771ea7ee5c86f.tar
drakx-52be628d90b2e51d9d3440e72c1771ea7ee5c86f.tar.gz
drakx-52be628d90b2e51d9d3440e72c1771ea7ee5c86f.tar.bz2
drakx-52be628d90b2e51d9d3440e72c1771ea7ee5c86f.tar.xz
drakx-52be628d90b2e51d9d3440e72c1771ea7ee5c86f.zip
Always return a hashref from pkgs::packageMedium()
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/pkgs.pm2
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) = @_;