Commit ed6e1f26 authored by Dorian Guillois's avatar Dorian Guillois
Browse files

Perl: Fix compilation error.

parent c588a311
...@@ -62,7 +62,7 @@ char const* const com::centreon::connector::perl::embedded_perl::_script = ...@@ -62,7 +62,7 @@ char const* const com::centreon::connector::perl::embedded_perl::_script =
" my $sub;\n" \ " my $sub;\n" \
" sysread $fh, $sub, -s $fh;\n" \ " sysread $fh, $sub, -s $fh;\n" \
" close $fh;\n" \ " close $fh;\n" \
" $sub =~ s/__END__/\;}\n__END__/;\n" \ " $sub =~ s/__END__/\\;}\n__END__/;\n" \
"\n" \ "\n" \
" # Wrap the code into a subroutine.\n" \ " # Wrap the code into a subroutine.\n" \
" my $hndlr = <<EOSUB;\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