summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2007-10-04 16:47:14 +0000
committerPascal Rigaux <pixel@mandriva.com>2007-10-04 16:47:14 +0000
commit5501afe4c679f16d0599352f618900b8a0388ce9 (patch)
tree265af92c19e95c1888ec0a3de4d39749be149017 /perl-install
parent5604997f13654d4ba9b361e7039f81dda73f30b3 (diff)
downloaddrakx-5501afe4c679f16d0599352f618900b8a0388ce9.tar
drakx-5501afe4c679f16d0599352f618900b8a0388ce9.tar.gz
drakx-5501afe4c679f16d0599352f618900b8a0388ce9.tar.bz2
drakx-5501afe4c679f16d0599352f618900b8a0388ce9.tar.xz
drakx-5501afe4c679f16d0599352f618900b8a0388ce9.zip
- fix copying of ../../i586/media/main medium
(for dual_arch CDs sharing the i586 medium)
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/install/NEWS2
-rw-r--r--perl-install/install/media.pm9
2 files changed, 9 insertions, 2 deletions
diff --git a/perl-install/install/NEWS b/perl-install/install/NEWS
index 2be66d32c..f9c5bdb8e 100644
--- a/perl-install/install/NEWS
+++ b/perl-install/install/NEWS
@@ -1,3 +1,5 @@
+- fix copying of ../../i586/media/main medium
+ (for dual_arch CDs sharing the i586 medium)
- fix configuring kdeglobals (was broken because of /etc/kderc using
udpate-alternatives which use absolute symlinks)
diff --git a/perl-install/install/media.pm b/perl-install/install/media.pm
index 3a3da5601..3814f34a5 100644
--- a/perl-install/install/media.pm
+++ b/perl-install/install/media.pm
@@ -868,14 +868,19 @@ sub copy_rpms_on_disk {
$m->{selected} = 0;
}
}
+ my $dest_medium_dir = $dest_dir . '/'. basename($rpmsdir);
+ #- handle rpmsdir being ../../i586/media/main: we flatten it
+ -e "$::prefix$dest_medium_dir" and $dest_medium_dir .= '32';
+ -e "$::prefix$dest_medium_dir" and next;
my $total = install::any::count_files($rpmsdir);
- log::l("copying $rpmsdir to $::prefix$dest_dir ($total files)");
+ log::l("copying $rpmsdir to $::prefix$dest_medium_dir ($total files)");
eval {
- install::any::cp_with_progress_({}, $wait_message, $total, [$rpmsdir], "$::prefix$dest_dir");
+ install::any::cp_with_progress_({}, $wait_message, $total, [$rpmsdir], "$::prefix$dest_medium_dir");
};
log::l($@) if $@;
+ $m->{rpmsdir} = basename($dest_medium_dir);
$m->{phys_medium} = $dest_phys_medium;
}
undef $wait;