From ba2dcd6d45c5e8d4e70b91268696c5882e905c33 Mon Sep 17 00:00:00 2001
From: teastep <teastep@fbd18981-670d-0410-9b5c-8dc0c1a9a2bb>
Date: Wed, 28 Mar 2007 20:16:19 +0000
Subject: [PATCH] Try cmode-perl again

git-svn-id: https://shorewall.svn.sourceforge.net/svnroot/shorewall/trunk@5734 fbd18981-670d-0410-9b5c-8dc0c1a9a2bb
---
 New/compiler.pl | 29 +++--------------------------
 1 file changed, 3 insertions(+), 26 deletions(-)

diff --git a/New/compiler.pl b/New/compiler.pl
index 7c43c6a7a..a7721658c 100755
--- a/New/compiler.pl
+++ b/New/compiler.pl
@@ -59,30 +59,6 @@ use Shorewall::Rules;
 use Shorewall::Proc;
 use Shorewall::Proxyarp;
 
-#
-# Note to the reader.
-#
-#     I use Emacs perl-mode. It's advantages are:
-#
-#         It's color theme is visible to color-blind people like me.
-#         It's indentation scheme is exactly the way I like.
-#
-#      But:
-#
-#         It doesn't understand 'here documents'.
-#
-#     I've tried cperl-mode. It's adavantages are:
-#         
-#         It understands 'here documents'.
-#
-#     But:
-#
-#         It's color theme drives my eyes crazy.
-#         It's indentation scheme is unfathomable.
-#
-#     Bottom line. I use quoting techinques other than 'here documents'.
-#
-
 #
 # First stage of script generation.
 #
@@ -201,7 +177,8 @@ sub generate_script_1 {
 
 sub compile_stop_firewall() {
 
-    emit '#
+    emit <<'EOF';
+#
 # Stop/restore the firewall after an error or because of a \'stop\' or \'clear\' command
 #
 stop_firewall() {
@@ -339,7 +316,7 @@ stop_firewall() {
     fi
 
     rm -f ${VARDIR}/proxyarp
-';
+EOF
 
     push_indent;