extern/shorewall_code
1
0
Fork 1
mirror of https://gitlab.com/shorewall/code.git synced 2025-01-17 11:08:29 +01:00
Code Issues Packages Projects Releases Wiki Activity

Fix single-line embedded Perl

Browse Source 
Signed-off-by: Tom Eastep <teastep@shorewall.net>
This commit is contained in:
Tom Eastep 2012-06-05 09:02:12 -07:00
parent c8156cfdb1
commit 6bd81145e9
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -2101,6 +2101,8 @@ sub embedded_perl( $ ) {
fatal_error ( "Missing END PERL" ) unless $last;
fatal_error ( "Invalid END PERL directive" ) unless $currentline =~ /^\s*$/;
} else {
$currentline = '';
}
$embedded++;