From b6b524347edef36930ccdce12c0eb8ba57cb0c00 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <thierry.vignaud@gmail.com>
Date: Mon, 11 May 2015 04:02:30 -0400
Subject: (enable_choosen_media) split it out

... of media_screen()

needed for next commit
---
 perl-install/install/any.pm | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/perl-install/install/any.pm b/perl-install/install/any.pm
index 01896b570..b671a5b18 100644
--- a/perl-install/install/any.pm
+++ b/perl-install/install/any.pm
@@ -505,7 +505,11 @@ sub media_screen {
             };
 	} @{$urpm->{media}},
     ]);
+}
 
+sub enable_choosen_media {
+    my ($o) = @_;
+    my $urpm = $o->{packages};
 
     # is there some media to enable?
     my $todo;
@@ -577,6 +581,7 @@ sub setPackages {
 
         install::pkgs::start_pushing_error();
         media_screen($o) if !$::auto_install && !$::o->{match_all_hardware};
+        enable_choosen_media($o);
         my @choosen_media = map { $_->{name} } grep { !$_->{ignore} } @{$urpm->{media}};
         log::l("choosen media: ", join(', ', @choosen_media));
         die "no choosen media" if !@choosen_media;
-- 
cgit v1.2.1