summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorGuillaume Cottenceau <gc@mandriva.com>2002-11-21 15:55:13 +0000
committerGuillaume Cottenceau <gc@mandriva.com>2002-11-21 15:55:13 +0000
commitb3c58cca6cc9191ad429f6a18471b2e9799a82fb (patch)
treec583f992a23a5e2b01b80b12baac1d28b604b286 /perl-install
parentd0bc1a61790e16d4499b80539cf1561a45c75daf (diff)
downloaddrakx-backup-do-not-use-b3c58cca6cc9191ad429f6a18471b2e9799a82fb.tar
drakx-backup-do-not-use-b3c58cca6cc9191ad429f6a18471b2e9799a82fb.tar.gz
drakx-backup-do-not-use-b3c58cca6cc9191ad429f6a18471b2e9799a82fb.tar.bz2
drakx-backup-do-not-use-b3c58cca6cc9191ad429f6a18471b2e9799a82fb.tar.xz
drakx-backup-do-not-use-b3c58cca6cc9191ad429f6a18471b2e9799a82fb.zip
use ask_warn when I should, and remove a one year old debug statement (???)
Diffstat (limited to 'perl-install')
-rwxr-xr-xperl-install/standalone/drakautoinst5
1 files changed, 2 insertions, 3 deletions
diff --git a/perl-install/standalone/drakautoinst b/perl-install/standalone/drakautoinst
index de6e2c8d0..67401dcd6 100755
--- a/perl-install/standalone/drakautoinst
+++ b/perl-install/standalone/drakautoinst
@@ -30,7 +30,6 @@ use Data::Dumper;
local $_ = join '', @ARGV;
$::direct = /-direct/;
-$::direct = 1; #DEBUG
my $in = 'interactive'->vnew('su', 'default');
@@ -38,8 +37,8 @@ begin:
$::isEmbedded and kill 'USR2', $::CCPID;
my $imagefile = "/root/drakx/replay_install.img";
--f $imagefile or $in->ask_okcancel(N("Error!"),
- N("I can't find needed image file `%s'.", $imagefile), 1), quit_global($in, 0);
+-f $imagefile or $in->ask_warn(N("Error!"),
+ N("I can't find needed image file `%s'.", $imagefile), 1), quit_global($in, 0);
$::direct or $in->ask_okcancel(N("Auto Install Configurator"),
N("You are about to configure an Auto Install floppy. This feature is somewhat dangerous and must be used circumspectly.