Commit 508356a1 authored by Dorian Guillois's avatar Dorian Guillois
Browse files

Perl: allow __END__ to occur in wrapped scripts.

parent 6a0ac3c1
......@@ -62,6 +62,7 @@ char const* const com::centreon::connector::perl::embedded_perl::_script =
" my $sub;\n" \
" sysread $fh, $sub, -s $fh;\n" \
" close $fh;\n" \
" $sub =~ s/__END__/\;}\n__END__/;\n" \
"\n" \
" # Wrap the code into a subroutine.\n" \
" my $hndlr = <<EOSUB;\n" \
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment