From d857725333db757ade05e13b4ec01431dce362bc Mon Sep 17 00:00:00 2001 From: teastep Date: Fri, 3 Aug 2007 18:47:58 +0000 Subject: [PATCH] Cosmetic change to generated script git-svn-id: https://shorewall.svn.sourceforge.net/svnroot/shorewall/trunk@7040 fbd18981-670d-0410-9b5c-8dc0c1a9a2bb --- Shorewall-perl/Shorewall/Compiler.pm | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/Shorewall-perl/Shorewall/Compiler.pm b/Shorewall-perl/Shorewall/Compiler.pm index 6be2a3e31..195f068b8 100644 --- a/Shorewall-perl/Shorewall/Compiler.pm +++ b/Shorewall-perl/Shorewall/Compiler.pm @@ -86,14 +86,15 @@ sub generate_script_1() { copy $globals{SHAREDIRPL} . 'prog.header'; for my $exit qw/init start tcclear started stop stopped clear refresh refreshed/ { - emit "run_${exit}_exit() {"; + emit "\nrun_${exit}_exit() {"; push_indent; append_file $exit or emit 'true'; pop_indent; - emit "}\n"; + emit '}'; } - emit ( '#', + emit ( '', + '#', '# This function initializes the global variables used by the program', '#', 'initialize()',