From f154a69dfee6046a138d5f23e18aa5b65a7f88b1 Mon Sep 17 00:00:00 2001
From: teastep <teastep@fbd18981-670d-0410-9b5c-8dc0c1a9a2bb>
Date: Wed, 16 May 2007 15:12:31 +0000
Subject: [PATCH] Generate the 'clear' exit

git-svn-id: https://shorewall.svn.sourceforge.net/svnroot/shorewall/trunk@6373 fbd18981-670d-0410-9b5c-8dc0c1a9a2bb
---
 Shorewall-perl/compiler.pl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Shorewall-perl/compiler.pl b/Shorewall-perl/compiler.pl
index 61450bd49..4541211b6 100755
--- a/Shorewall-perl/compiler.pl
+++ b/Shorewall-perl/compiler.pl
@@ -101,7 +101,7 @@ sub generate_script_1() {
 
     emit "TEMPFILE=\n";
 
-    for my $exit qw/init start tcclear started stop stopped/ {
+    for my $exit qw/init start tcclear started stop stopped clear/ {
 	emit "run_${exit}_exit() {";
 	push_indent;
 	append_file $exit;