From 86923e25769200fc73586e574c3580a646294ede Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mageia.org>
Date: Mon, 10 Dec 2012 14:06:58 +0000
Subject: (media_screen) log choosen media

---
 perl-install/install/any.pm | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'perl-install/install')

diff --git a/perl-install/install/any.pm b/perl-install/install/any.pm
index 26bbe9f0b..29fd8e1de 100644
--- a/perl-install/install/any.pm
+++ b/perl-install/install/any.pm
@@ -419,6 +419,8 @@ sub setPackages {
 
         install::pkgs::start_pushing_error();
         media_screen($o) if !$::auto_install;
+        my @choosen_media = map { $_->{name} } grep { !$_->{ignore} } @{$urpm->{media}};
+        log::l("choosen media: ", join(',', @choosen_media));
 
         # actually read synthesis now we have all the ones we want:
         require urpm::media;
-- 
cgit v1.2.1