extern/shorewall_code
1
0
Fork 1
mirror of https://gitlab.com/shorewall/code.git synced 2024-12-18 20:30:43 +01:00
Code Issues Packages Projects Releases Wiki Activity

Make ?BEGIN PERL end ?END PERL work.

Browse Source 
Signed-off-by: Tom Eastep <teastep@shorewall.net>
This commit is contained in:
Tom Eastep 2012-04-06 15:58:21 -07:00
parent 9dd6f86c55
commit 5688dc77a3
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Shorewall/Perl/Shorewall/Config.pm
View File

@ -2193,7 +2193,7 @@ sub read_a_line(;$$$) {
# #
# Handle conditionals # Handle conditionals
# #
if ( $currentline =~ /^\s*\?/ ) { if ( $currentline =~ /^\s*\?(?:IF|ELSE|ENDIF)/ ) {
$omitting = process_conditional( $omitting, $currentline, $currentlinenumber ); $omitting = process_conditional( $omitting, $currentline, $currentlinenumber );
$currentline=''; $currentline='';
next; next;