From d72117e06bf24160ee444cfea2c2a9f3d3db42e5 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mageia.org>
Date: Mon, 23 Apr 2012 17:28:07 +0000
Subject: (choosePackagesTree) fix passing ->{media} to extractHeaders

(was a missmerge)
---
 perl-install/install/NEWS         | 3 +++
 perl-install/install/steps_gtk.pm | 2 +-
 2 files changed, 4 insertions(+), 1 deletion(-)

diff --git a/perl-install/install/NEWS b/perl-install/install/NEWS
index 2d28b2ab7..92dc7c1f9 100644
--- a/perl-install/install/NEWS
+++ b/perl-install/install/NEWS
@@ -1,3 +1,6 @@
+- individual package selection:
+  o fix a crash
+
 Version 14.9 - 23 April 2012
 
 - include missing perl modules (mga#5528)
diff --git a/perl-install/install/steps_gtk.pm b/perl-install/install/steps_gtk.pm
index 6909ec7b3..5d4936b67 100644
--- a/perl-install/install/steps_gtk.pm
+++ b/perl-install/install/steps_gtk.pm
@@ -402,7 +402,7 @@ sub choosePackagesTree {
 			    },
 			    get_info => sub {
 				my $p = install::pkgs::packageByName($packages, $_[0]) or return '';
-                                install::pkgs::extractHeaders([$p], $packages);
+                                install::pkgs::extractHeaders([$p], $packages->{media});
 
 				my $imp = translate($install::pkgs::compssListDesc{$p->flag_base ? 5 : $p->rate});
 
-- 
cgit v1.2.1