Try cmode-perl again

git-svn-id: https://shorewall.svn.sourceforge.net/svnroot/shorewall/trunk@5734 fbd18981-670d-0410-9b5c-8dc0c1a9a2bb

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;