From 5688dc77a315cdb7e72a2efc6cbc2c7fa1406fcc Mon Sep 17 00:00:00 2001
From: Tom Eastep <teastep@shorewall.net>
Date: Fri, 6 Apr 2012 15:58:21 -0700
Subject: [PATCH] Make ?BEGIN PERL end ?END PERL work.

Signed-off-by: Tom Eastep <teastep@shorewall.net>
---
 Shorewall/Perl/Shorewall/Config.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Shorewall/Perl/Shorewall/Config.pm b/Shorewall/Perl/Shorewall/Config.pm
index 0b5abdf7a..d2cc0a01f 100644
--- a/Shorewall/Perl/Shorewall/Config.pm
+++ b/Shorewall/Perl/Shorewall/Config.pm
@@ -2193,7 +2193,7 @@ sub read_a_line(;$$$) {
 	    #
 	    # Handle conditionals
 	    #
-	    if ( $currentline =~ /^\s*\?/ ) {
+	    if ( $currentline =~ /^\s*\?(?:IF|ELSE|ENDIF)/ ) {
 		$omitting = process_conditional( $omitting, $currentline, $currentlinenumber );
 		$currentline='';
 		next;