diff options
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/install_any.pm | 10 | ||||
| -rw-r--r-- | perl-install/install_steps_gtk.pm | 2 |
2 files changed, 6 insertions, 6 deletions
diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm index f37d7006e..f9887706d 100644 --- a/perl-install/install_any.pm +++ b/perl-install/install_any.pm @@ -708,7 +708,7 @@ sub cp_with_progress { sub copy_rpms_on_disk { my ($o) = @_; - mkdir "$o->{prefix}/$_", 0755 foreach qw(var var/ftp var/ftp/pub var/ftp/pub/Mandrakelinux var/ftp/pub/Mandrakelinux/media); + mkdir "$o->{prefix}/$_", 0755 foreach qw(var var/ftp var/ftp/pub var/ftp/pub/Mandrivalinux var/ftp/pub/Mandrivalinux/media); local *changeMedium = sub { my ($method, $medium) = @_; my $name = pkgs::mediumDescr($o->{packages}, $medium); @@ -744,14 +744,14 @@ Please insert the Cd-Rom labelled \"%s\" in your drive and press Ok when done.", } while !-d "/tmp/image/$m->{rpmsdir}"; $current_medium = $k; } - log::l("copying /tmp/image/$m->{rpmsdir} to $o->{prefix}/var/ftp/pub/Mandrakelinux/media"); + log::l("copying /tmp/image/$m->{rpmsdir} to $o->{prefix}/var/ftp/pub/Mandrivalinux/media"); my $total = count_files("/tmp/image/$m->{rpmsdir}"); log::l("($total files)"); eval { - cp_with_progress($wait_message, 0, $total, "/tmp/image/$m->{rpmsdir}", "$o->{prefix}/var/ftp/pub/Mandrakelinux/media"); + cp_with_progress($wait_message, 0, $total, "/tmp/image/$m->{rpmsdir}", "$o->{prefix}/var/ftp/pub/Mandrivalinux/media"); }; log::l($@) if $@; - $m->{prefix} = "$o->{prefix}/var/ftp/pub/Mandrakelinux"; + $m->{prefix} = "$o->{prefix}/var/ftp/pub/Mandrivalinux"; $m->{method} = 'disk'; $m->{with_hdlist} = 'media_info/hdlist.cz'; #- for install_urpmi undef $wait_w; @@ -1009,7 +1009,7 @@ sub install_urpmi { my $name = $_->{fakemedium}; if ($_->{ignored} || $_->{selected}) { my $curmethod = $_->{method} || $::o->{method}; - my $dir = (($copied_rpms_on_disk ? "/var/ftp/pub/Mandrakelinux" : '') + my $dir = (($copied_rpms_on_disk ? "/var/ftp/pub/Mandrivalinux" : '') || $_->{prefix} || ${{ nfs => "file://mnt/nfs", disk => "file:/" . $hdInstallPath, ftp => $ENV{URLPREFIX}, diff --git a/perl-install/install_steps_gtk.pm b/perl-install/install_steps_gtk.pm index 8ef0d9bb7..fc6648283 100644 --- a/perl-install/install_steps_gtk.pm +++ b/perl-install/install_steps_gtk.pm @@ -670,7 +670,7 @@ sub deselectFoundMedia { } if ($ask_copy_rpms_on_disk) { #- don't be afraid, cleanup old RPMs if upgrade - eval { rm_rf("$::prefix/var/ftp/pub/Mandrakelinux") if $o->{isUpgrade} }; + eval { rm_rf("$::prefix/var/ftp/pub/Mandrakelinux", "$::prefix/var/ftp/pub/Mandrivalinux") if $o->{isUpgrade} }; my $w = ugtk2->new(""); $i = -1; $w->sync; |