summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/install/NEWS1
-rw-r--r--perl-install/install/media.pm10
2 files changed, 9 insertions, 2 deletions
diff --git a/perl-install/install/NEWS b/perl-install/install/NEWS
index e6a7d791a..778dd5ee3 100644
--- a/perl-install/install/NEWS
+++ b/perl-install/install/NEWS
@@ -2,6 +2,7 @@
- media management:
o just use curl instead of using our own http stack to retrieve
files from network (thus fixing #48887)
+ o fix mount point for disk media
o tell urpmi to read synthesis before adding supplementary network
media in order to be able to install the 'basesystem' package
- log where we segfaulted
diff --git a/perl-install/install/media.pm b/perl-install/install/media.pm
index 0edfb8ab0..ee2bfbebf 100644
--- a/perl-install/install/media.pm
+++ b/perl-install/install/media.pm
@@ -533,8 +533,14 @@ sub adjust_paths_in_urpmi_cfg {
if ($phys_m->{method} eq 'cdrom') {
$medium->{url} =~ s!^/tmp/image!cdrom://!; # main media
$medium->{url} =~ s!^$phys_m->{real_mntpoint}/!cdrom://!; # supplementary medium
- } elsif ($phys_m->{method} eq 'nfs') {
- $medium->{url} =~ s!^$::prefix!!;
+ } elsif (member($phys_m->{method}, qw(disk nfs))) {
+ # use the real mount point:
+ if ($medium->{url} =~ m!/tmp/image!) {
+ $medium->{url} =~ s!/tmp/image!$phys_m->{mntpoint}!;
+ } else {
+ # just remove $::prefix and we already have the real mount point:
+ $medium->{url} =~ s!^$::prefix!!;
+ }
}
}
urpm::media::write_config($urpm);