summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authordamien <damien@mandriva.com>2001-03-29 00:07:57 +0000
committerdamien <damien@mandriva.com>2001-03-29 00:07:57 +0000
commitf04f34d0521c0e4765c94aee896617e177a2c8f7 (patch)
tree9d014b5f74045a624d104350d770a61f05fc3314 /perl-install
parent76a9600c3c374e069f4c22a9e0a5988d0f91b5b9 (diff)
downloaddrakx-backup-do-not-use-f04f34d0521c0e4765c94aee896617e177a2c8f7.tar
drakx-backup-do-not-use-f04f34d0521c0e4765c94aee896617e177a2c8f7.tar.gz
drakx-backup-do-not-use-f04f34d0521c0e4765c94aee896617e177a2c8f7.tar.bz2
drakx-backup-do-not-use-f04f34d0521c0e4765c94aee896617e177a2c8f7.tar.xz
drakx-backup-do-not-use-f04f34d0521c0e4765c94aee896617e177a2c8f7.zip
bad message at the end if kernel2.4
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/tinyfirewall.pm6
1 files changed, 5 insertions, 1 deletions
diff --git a/perl-install/tinyfirewall.pm b/perl-install/tinyfirewall.pm
index 9d871228b..739baf934 100644
--- a/perl-install/tinyfirewall.pm
+++ b/perl-install/tinyfirewall.pm
@@ -167,7 +167,11 @@ my $popimap = sub {
[undef , "No I don't need NTP", "Yes I need NTP", $ntp ],
[undef , "Don't Save", "Save & Quit", $quit ]
);
- if (!Kernel22()) { pop @struct; pop @struct; pop @struct; @struct = ( @struct, [undef , "Don't Save", "Save & Quit", $quit ] ) }
+ if (!Kernel22()) {
+ pop @struct; pop @struct; pop @struct;
+ @struct = ( @struct, [undef , "Don't Save", "Save & Quit", $quit ] );
+ @messages[9]=@messages[11];
+ }
for (my $i=0;$i<@struct;$i++) {
$::Wizard_no_previous = $i == 0;
$::Wizard_finished = $i == $#struct;