From 5233a64be8e18c67fc309865fbaf3bbdca636e81 Mon Sep 17 00:00:00 2001
From: Rafael Garcia-Suarez <rgarciasuarez@mandriva.org>
Date: Mon, 5 Sep 2005 13:32:39 +0000
Subject: At some point, an empty hashref is autovivified in
 $packages->{medium}. So, protect the loops that iterate over this hash, in
 application of the belt and suspenders doctrine.

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

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

diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm
index 69686e7de..8646d4ac4 100644
--- a/perl-install/install_any.pm
+++ b/perl-install/install_any.pm
@@ -1021,7 +1021,7 @@ sub warnAboutFilesStillOpen() {
 sub install_urpmi {
     my ($method, $packages) = @_;
 
-    my @mediums = values %{$packages->{mediums}};
+    my @mediums = grep { defined $_->{medium} } values %{$packages->{mediums}};
     my $hdInstallPath = any::hdInstallPath();
 
     #- rare case where urpmi cannot be installed (no hd install path).
-- 
cgit v1.2.1