From 63e90060206ee4607f1bd1faa82b4eaa770276a1 Mon Sep 17 00:00:00 2001
From: Rafael Garcia-Suarez <rgarciasuarez@mandriva.org>
Date: Wed, 8 Sep 2004 06:24:51 +0000
Subject: Always return a hashref from pkgs::packageMedium()

---
 perl-install/pkgs.pm | 14 ++++++++------
 1 file changed, 8 insertions(+), 6 deletions(-)

(limited to 'perl-install/pkgs.pm')

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) = @_;
-- 
cgit v1.2.1