Perlbot/perlbuut
1
0
Fork 0
mirror of https://github.com/perlbot/perlbuut synced 2025-06-09 06:45:41 -04:00
Code Issues Releases Wiki Activity

Fix line numbers in evals on perlbot.pl and in eval:

Browse source
This commit is contained in:
Ryan Voots 2016-12-01 14:11:07 -05:00
parent 7941b3921a
commit d4a9dcb1d7
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
lib/eval.pl
View file

@ -335,7 +335,7 @@ get_seccomp();
{ {
local $^O = $os[rand()*@os]; local $^O = $os[rand()*@os];
no strict; no warnings; package main; no strict; no warnings; package main;
$code = "use $]; use feature qw/postderef refaliasing lexical_subs postderef_qq signatures/; use experimental 'declared_refs';\n$code"; $code = "use $]; use feature qw/postderef refaliasing lexical_subs postderef_qq signatures/; use experimental 'declared_refs';\n#line 1\n$code";
$ret = eval $code; $ret = eval $code;
} }