holm/shorewall_code
1
0
Fork 0
forked from extern/shorewall_code
Code Pull Requests Activity

Add newlines to embedded multi-line shell and perl

Browse Source 
Signed-off-by: Tom Eastep <teastep@shorewall.net>
This commit is contained in:
Tom Eastep 2012-04-08 12:17:00 -07:00
parent 50405f57ba
commit 94097e2561
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1958,7 +1958,7 @@ sub embedded_shell( $ ) {
while ( read_a_line( 0, 0, 0, 0 ) ) {
last if $last = $currentline =~ s/^\s*END(\s+SHELL)?\s*;?//;
$command .= $currentline;
$command .= "$currentline\n";
}
fatal_error ( "Missing END SHELL" ) unless $last;
@ -1992,7 +1992,7 @@ sub embedded_perl( $ ) {
while ( read_a_line( 0, 0, 0, 0 ) ) {
last if $last = $currentline =~ s/^\s*END(\s+PERL)?\s*;?//;
$command .= $currentline;
$command .= "$currentline\n";
}
fatal_error ( "Missing END PERL" ) unless $last;