From 0dc84759f05ad93123adf2e1f20839104b1bbd97 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Mon, 23 Mar 2009 18:31:25 +0000 Subject: (get_media,_adjust_paths_in_urpmi_cfg) only adjust newly added medium regarding current physical medium --- perl-install/install/media.pm | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) (limited to 'perl-install/install') diff --git a/perl-install/install/media.pm b/perl-install/install/media.pm index 3a36d4905..e72014a25 100644 --- a/perl-install/install/media.pm +++ b/perl-install/install/media.pm @@ -496,6 +496,7 @@ sub get_media { use Data::Dumper; my ($suppl_CDs, $copy_rpms_on_disk, $phys_m); + my @names = map { $_->{name} } @{$packages->{media}}; foreach (@$media) { if ($_->{type} eq 'media_cfg') { $phys_m = url2mounted_phys_medium($o, $_->{url}, 'media_info'); @@ -536,11 +537,12 @@ sub get_media { log::l("unknown media type $_->{type}, skipping"); } } + my @new_media = difference2([ map { $_->{name} } @{$packages->{media}} ], \@names); urpm::media::update_media($packages, distrib => 1, callback => \&urpm::download::sync_logger) or log::l('updating media failed'); - _adjust_paths_in_urpmi_cfg($o, $phys_m); + _adjust_paths_in_urpmi_cfg($o, $phys_m, @new_media); urpm::media::configure($packages); log::l('urpmi completely set up'); @@ -550,13 +552,14 @@ sub get_media { } sub _adjust_paths_in_urpmi_cfg { - my ($o, $phys_m) = @_; - if ($o->{stage2_phys_medium}{method} eq 'cdrom') { + my ($o, $phys_m, @new_media) = @_; + if ($o->{stage2_phys_medium}{method} ne 'cdrom') { my $urpm = install::pkgs::empty_packages(); # force rereading media: undef $urpm->{media}; urpm::media::read_config($urpm); foreach my $medium (@{$urpm->{media}}) { + next if !member($medium->{name}, @new_media); $medium->{url} =~ s!^$phys_m->{real_mntpoint}/!cdrom://!; } urpm::media::write_config($urpm); -- cgit v1.2.1