diff options
author | Rafael Garcia-Suarez <rgarciasuarez@mandriva.org> | 2005-02-09 13:13:19 +0000 |
---|---|---|
committer | Rafael Garcia-Suarez <rgarciasuarez@mandriva.org> | 2005-02-09 13:13:19 +0000 |
commit | 979b11e5551b2daa558cd5caf9703d333b04a047 (patch) | |
tree | 5825b575aa2b5a036e70c2d5ed3d7690cfde06cd | |
parent | a5041faaac33ab1ef39c11f07de1ec5a77ee35ce (diff) | |
download | drakx-979b11e5551b2daa558cd5caf9703d333b04a047.tar drakx-979b11e5551b2daa558cd5caf9703d333b04a047.tar.gz drakx-979b11e5551b2daa558cd5caf9703d333b04a047.tar.bz2 drakx-979b11e5551b2daa558cd5caf9703d333b04a047.tar.xz drakx-979b11e5551b2daa558cd5caf9703d333b04a047.zip |
make perl_checko, the little bot, happy
-rw-r--r-- | perl-install/install_any.pm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm index c85de8bcf..1af25f925 100644 --- a/perl-install/install_any.pm +++ b/perl-install/install_any.pm @@ -643,9 +643,9 @@ Please insert the Cd-Rom labelled \"%s\" in your drive and press Ok when done.", do { askChangeMedium($o->{method}, $k) or next; - mountCdrom("/tmp/image", $cdrom) - } while (!-d "/tmp/image/$m->{rpmsdir}"); - $current_medium = $k + mountCdrom("/tmp/image", $cdrom); + } while !-d "/tmp/image/$m->{rpmsdir}"; + $current_medium = $k; } log::l("copying /tmp/image/$m->{rpmsdir} to $o->{prefix}/var/ftp/pub/Mandrakelinux/media"); my $wait_w = $o->wait_message(N("Please wait"), N("Copying in progress")); |