From 52be628d90b2e51d9d3440e72c1771ea7ee5c86f Mon Sep 17 00:00:00 2001
From: Rafael Garcia-Suarez <rgarciasuarez@mandriva.org>
Date: Wed, 22 Sep 2004 04:58:47 +0000
Subject: Always return a hashref from pkgs::packageMedium()

---
 perl-install/pkgs.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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

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