From 30d0611018ffd2711bb89fbb7fab0c0501fcc415 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mageia.org>
Date: Mon, 16 Apr 2012 21:37:20 +0000
Subject: (extractHeaders) adapt to urpmi API after resurecting it

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

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

diff --git a/perl-install/install/pkgs.pm b/perl-install/install/pkgs.pm
index 539ee2754..2e64b778c 100644
--- a/perl-install/install/pkgs.pm
+++ b/perl-install/install/pkgs.pm
@@ -37,7 +37,7 @@ sub extractHeaders {
     cleanHeaders();
 
     foreach my $medium (@$media) {
-        $medium->{selected} or next;
+        !$medium->{ignore} or next;
 
         my @l = grep { $_->id >= $medium->{start} && $_->id <= $medium->{end} } @$pkgs or next;
         eval {
-- 
cgit v1.2.1