mirror of
https://gitlab.com/shorewall/code.git
synced 2025-08-17 20:26:47 +02:00
@@ -1995,10 +1995,10 @@ sub embedded_perl( $ ) {
|
||||
}
|
||||
|
||||
unless (my $return = eval $command ) {
|
||||
#
|
||||
# Perl found the script offensive or the script itself died
|
||||
#
|
||||
if ( $@ ) {
|
||||
#
|
||||
# Perl found the script offensive or the script itself died
|
||||
#
|
||||
$@ =~ s/, <\$currentfile> line \d+//g;
|
||||
fatal_error1 "$@";
|
||||
}
|
||||
|
Reference in New Issue
Block a user