From f04f34d0521c0e4765c94aee896617e177a2c8f7 Mon Sep 17 00:00:00 2001 From: damien Date: Thu, 29 Mar 2001 00:07:57 +0000 Subject: bad message at the end if kernel2.4 --- perl-install/tinyfirewall.pm | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) (limited to 'perl-install/tinyfirewall.pm') 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; -- cgit v1.2.1