diff options
| author | Guillaume Cottenceau <gc@mandriva.com> | 2002-11-21 15:55:13 +0000 |
|---|---|---|
| committer | Guillaume Cottenceau <gc@mandriva.com> | 2002-11-21 15:55:13 +0000 |
| commit | b3c58cca6cc9191ad429f6a18471b2e9799a82fb (patch) | |
| tree | c583f992a23a5e2b01b80b12baac1d28b604b286 /perl-install | |
| parent | d0bc1a61790e16d4499b80539cf1561a45c75daf (diff) | |
| download | drakx-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-x | perl-install/standalone/drakautoinst | 5 |
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. |