summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorRafael Garcia-Suarez <rgarciasuarez@mandriva.org>2004-09-08 06:24:51 +0000
committerRafael Garcia-Suarez <rgarciasuarez@mandriva.org>2004-09-08 06:24:51 +0000
commit63e90060206ee4607f1bd1faa82b4eaa770276a1 (patch)
treeb8c9cfefff17859637bdaf9e08c3b3c879c2a8cc /perl-install
parent3d0c9be0ca3648dc6a212eb62854663fc3a354d9 (diff)
downloaddrakx-63e90060206ee4607f1bd1faa82b4eaa770276a1.tar
drakx-63e90060206ee4607f1bd1faa82b4eaa770276a1.tar.gz
drakx-63e90060206ee4607f1bd1faa82b4eaa770276a1.tar.bz2
drakx-63e90060206ee4607f1bd1faa82b4eaa770276a1.tar.xz
drakx-63e90060206ee4607f1bd1faa82b4eaa770276a1.zip
Always return a hashref from pkgs::packageMedium()
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/pkgs.pm14
1 files changed, 8 insertions, 6 deletions
diff --git a/perl-install/pkgs.pm b/perl-install/pkgs.pm
index ecbbd26c9..edf7fbcb3 100644
--- a/perl-install/pkgs.pm
+++ b/perl-install/pkgs.pm
@@ -41,12 +41,14 @@ my %ignoreBadPkg = (
'rt2-demo' => 1,
);
-sub packageMedium { my ($packages, $p) = @_; $p or die "invalid package from\n" . backtrace();
- foreach (values %{$packages->{mediums}}) {
- defined $_->{start} && defined $_->{end} or next;
- $p->id >= $_->{start} && $p->id <= $_->{end} and return $_;
- }
- return }
+sub packageMedium {
+ my ($packages, $p) = @_; $p or die "invalid package from\n" . backtrace();
+ foreach (values %{$packages->{mediums}}) {
+ defined $_->{start} && defined $_->{end} or next;
+ $p->id >= $_->{start} && $p->id <= $_->{end} and return $_;
+ }
+ return {};
+}
sub cleanHeaders {
my ($prefix) = @_;