summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorThierry Vignaud <tv@mandriva.org>2009-03-23 18:31:25 +0000
committerThierry Vignaud <tv@mandriva.org>2009-03-23 18:31:25 +0000
commit0dc84759f05ad93123adf2e1f20839104b1bbd97 (patch)
tree888a1ae4d20bd0930c582116aeaf575734630fb4 /perl-install
parent1fbdc6f5ad3ef17fa36b564e6675a8c45ee66b7f (diff)
downloaddrakx-backup-do-not-use-0dc84759f05ad93123adf2e1f20839104b1bbd97.tar
drakx-backup-do-not-use-0dc84759f05ad93123adf2e1f20839104b1bbd97.tar.gz
drakx-backup-do-not-use-0dc84759f05ad93123adf2e1f20839104b1bbd97.tar.bz2
drakx-backup-do-not-use-0dc84759f05ad93123adf2e1f20839104b1bbd97.tar.xz
drakx-backup-do-not-use-0dc84759f05ad93123adf2e1f20839104b1bbd97.zip
(get_media,_adjust_paths_in_urpmi_cfg) only adjust newly added medium
regarding current physical medium
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/install/media.pm9
1 files changed, 6 insertions, 3 deletions
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);