From c70f4c9317eeace348328e0807d958be01b5922f Mon Sep 17 00:00:00 2001 From: Arnaud Desmons Date: Tue, 6 Aug 2002 08:59:42 +0000 Subject: remove use strict --- firewall_wizard/scripts/FWconf.pm | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) diff --git a/firewall_wizard/scripts/FWconf.pm b/firewall_wizard/scripts/FWconf.pm index 0eb3badf..87ecc226 100644 --- a/firewall_wizard/scripts/FWconf.pm +++ b/firewall_wizard/scripts/FWconf.pm @@ -3,15 +3,12 @@ package FWconf; require "__WIZ_HOME__/common/scripts/Vareqval.pm"; use MDK::Common; -use strict; +#use strict; sub true { my ($val) = @_; if (defined $val) { - $val eq "0" || $val eq "\'0\'" || $val eq "\"0\"" || - $val eq "false" || $val eq "\'false\'" || $val eq "\"false\"" and - return 0; $val eq "1" || $val eq "\'1\'" || $val eq "\"1\"" || $val eq "true" || $val eq "\'true\'" || $val eq "\"true\"" and return 1; @@ -197,6 +194,7 @@ sub do_it { Vareqval->commit($firewall_cfg, \%fw); system("chkconfig --level 345 bastille-firewall on"); system("service bastille-firewall start"); + 10; } 1; -- cgit v1.2.1