From b1e9453c62633e3852cf501d2b73781afad1fc5d Mon Sep 17 00:00:00 2001 From: teastep Date: Tue, 7 Apr 2009 03:22:49 +0000 Subject: [PATCH] The other half of the re-implementation of 'enable/disable_object' Signed-off-by: Tom Eastep git-svn-id: https://shorewall.svn.sourceforge.net/svnroot/shorewall/trunk@9825 fbd18981-670d-0410-9b5c-8dc0c1a9a2bb --- Shorewall/Perl/Shorewall/Compiler.pm | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/Shorewall/Perl/Shorewall/Compiler.pm b/Shorewall/Perl/Shorewall/Compiler.pm index 36727bd31..f6870fcc4 100644 --- a/Shorewall/Perl/Shorewall/Compiler.pm +++ b/Shorewall/Perl/Shorewall/Compiler.pm @@ -639,8 +639,9 @@ sub compiler { # setup_notrack; + enable_object; + unless ( $command eq 'check' ) { - enable_object; # # Place Header in the object # @@ -683,15 +684,16 @@ sub compiler { unless ( $command eq 'check' ) { pop_indent; emit '}'; - disable_object; } + disable_object; # # R O U T I N G _ A N D _ T R A F F I C _ S H A P I N G # (Writes the setup_routing_and_traffic_shaping() function to the compiled script) # + enable_object; + unless ( $command eq 'check' ) { - enable_object; emit( "\n#", '# Setup routing and traffic shaping',