From 05ce90f24bfbdbf868d2f0aba50e1b88e862d7c0 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mandriva.org>
Date: Fri, 24 Aug 2007 21:09:21 +0000
Subject: (open_urpmi_db) fix crash if no backport medium is configured (aka no
 std configuration, #32815)

---
 Rpmdrake/pkg.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/Rpmdrake/pkg.pm b/Rpmdrake/pkg.pm
index eed64ba0..087c200e 100755
--- a/Rpmdrake/pkg.pm
+++ b/Rpmdrake/pkg.pm
@@ -245,8 +245,8 @@ sub open_urpmi_db() {
     my $media = ref $::options{media} ? join(',', @{$::options{media}}) : '';
     urpm::media::configure($urpm, media => $media);
     # urpmi only support one search media, hance we'll only support "Main backport":
-    my $searchmedia = (grep { $_->{ignore} && $_->{name} =~ /backport/i } @{$urpm->{media}})[0]->{name};
-    urpm::media::configure($urpm, media => $media, searchmedia => $searchmedia);
+    my ($searchmedia) = grep { $_->{ignore} && $_->{name} =~ /backport/i } @{$urpm->{media}};
+    urpm::media::configure($urpm, media => $media, if_($searchmedia, searchmedia => $searchmedia->{name}));
     if ($error_happened) {
         touch('/etc/urpmi/urpmi.cfg');
         exec('edit-urpm-sources.pl');
-- 
cgit v1.2.1