mirror of
https://gitlab.com/shorewall/code.git
synced 2025-06-21 10:18:58 +02:00
Fix single-line embedded Perl
Signed-off-by: Tom Eastep <teastep@shorewall.net>
This commit is contained in:
parent
c8156cfdb1
commit
6bd81145e9
@ -2101,6 +2101,8 @@ sub embedded_perl( $ ) {
|
|||||||
|
|
||||||
fatal_error ( "Missing END PERL" ) unless $last;
|
fatal_error ( "Missing END PERL" ) unless $last;
|
||||||
fatal_error ( "Invalid END PERL directive" ) unless $currentline =~ /^\s*$/;
|
fatal_error ( "Invalid END PERL directive" ) unless $currentline =~ /^\s*$/;
|
||||||
|
} else {
|
||||||
|
$currentline = '';
|
||||||
}
|
}
|
||||||
|
|
||||||
$embedded++;
|
$embedded++;
|
||||||
|
Loading…
x
Reference in New Issue
Block a user