diff options
Diffstat (limited to 'perl-install')
-rw-r--r-- | perl-install/install/any.pm | 4 | ||||
-rw-r--r-- | perl-install/install/media.pm | 7 |
2 files changed, 8 insertions, 3 deletions
diff --git a/perl-install/install/any.pm b/perl-install/install/any.pm index bb2ddfcf5..b683c0995 100644 --- a/perl-install/install/any.pm +++ b/perl-install/install/any.pm @@ -321,10 +321,8 @@ sub setPackages { 1 while $o->selectSupplMedia; } - urpm::media::update_media($o->{packages}, distrib => 1, callback => \&urpm::download::sync_logger) or - log::l('updating media failed'); + install::media::configure_media($o->{packages}); install::media::adjust_paths_in_urpmi_cfg($o->{packages}); - urpm::media::configure($o->{packages}); log::l('urpmi completely set up'); #- open rpm db according to right mode needed diff --git a/perl-install/install/media.pm b/perl-install/install/media.pm index 54ae9001b..082bb4457 100644 --- a/perl-install/install/media.pm +++ b/perl-install/install/media.pm @@ -491,6 +491,13 @@ sub select_only_some_media { } } +sub configure_media { + my ($packages) = @_; + urpm::media::update_media($packages, distrib => 1, callback => \&urpm::download::sync_logger) or + log::l('updating media failed'); + urpm::media::configure($packages); +} + sub get_media { my ($o, $media, $packages) = @_; use Data::Dumper; |