summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone/livedrake
diff options
context:
space:
mode:
authorFrancois Pons <fpons@mandriva.com>2000-09-28 15:19:36 +0000
committerFrancois Pons <fpons@mandriva.com>2000-09-28 15:19:36 +0000
commitcedfbb4076138ad2a2488edac052ebcb4d4c4d87 (patch)
treea2dae874efc71b7360f0d1cfff13ed60a7f03125 /perl-install/standalone/livedrake
parentb3f1e27bee0527ff356030d9ece24b7af737bc82 (diff)
downloaddrakx-cedfbb4076138ad2a2488edac052ebcb4d4c4d87.tar
drakx-cedfbb4076138ad2a2488edac052ebcb4d4c4d87.tar.gz
drakx-cedfbb4076138ad2a2488edac052ebcb4d4c4d87.tar.bz2
drakx-cedfbb4076138ad2a2488edac052ebcb4d4c4d87.tar.xz
drakx-cedfbb4076138ad2a2488edac052ebcb4d4c4d87.zip
*** empty log message ***
Diffstat (limited to 'perl-install/standalone/livedrake')
-rwxr-xr-xperl-install/standalone/livedrake9
1 files changed, 4 insertions, 5 deletions
diff --git a/perl-install/standalone/livedrake b/perl-install/standalone/livedrake
index 397294543..b9c1e9471 100755
--- a/perl-install/standalone/livedrake
+++ b/perl-install/standalone/livedrake
@@ -9,9 +9,8 @@ use c;
local $_ = join '', @ARGV;
-/-h/ and die "usage: livedrake [--auto] [--testing]\n";
+/-h/ and die "usage: livedrake [--testing]\n";
-$::auto = /-auto/;
$::testing = /-testing/;
$::isStandalone = 1;
@@ -29,20 +28,20 @@ If you don't have it, press Cancel to avoid live upgrade."), 1) or $in->exit(0);
if (-x "$cd_mntpoint/Mandrake/mdkinst/usr/bin/perl-install/live_install") {
chdir "/$cd_mntpoint/Mandrake/mdkinst/usr/bin/perl-install/";
- exec "./live_install";
+ $::testing or exec "./live_install";
}
$in->ask_warn('', _("Unable to start live upgrade !!!\n"));
$in->exit(1);
-sub unlockCdrom(;$) {
+sub unlockCdrom {
my ($cdrom) = @_;
$cdrom or cat_("/proc/mounts") =~ m|(/dev/\S+)\s+/mnt/cdrom\s| and $cdrom = $1;
$cdrom or cat_("/etc/fstab") =~ m|(/dev/\S+)\s+/mnt/cdrom\s| and $cdrom = $1;
eval { $cdrom and ioctl detect_devices::tryOpen($1), c::CDROM_LOCKDOOR(), 0 };
}
-sub ejectCdrom(;$) {
+sub ejectCdrom {
my ($cdrom) = @_;
$cdrom or cat_("/proc/mounts") =~ m|(/dev/\S+)\s+/mnt/cdrom\s| and $cdrom = $1;
my $f = eval { $cdrom && detect_devices::tryOpen($cdrom) } or return;