This is a live mirror of the Perl 5 development currently hosted at
https://github.com/perl/perl5
https://perl5.git.perl.org
/
perl5.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
| inline |
side by side
Hard-coded Perl_pp_entersub and Perl_pp_entereval should use PL_ppaddr
[perl5.git]
/
gv.c
diff --git
a/gv.c
b/gv.c
index
f278e37
..
58e6f8f
100644
(file)
--- a/
gv.c
+++ b/
gv.c
@@
-2156,7
+2156,7
@@
Perl_amagic_call(pTHX_ SV *left, SV *right, int method, int flags)
PUSHs(MUTABLE_SV(cv));
PUTBACK;
- if ((PL_op = P
erl_pp_entersub
(aTHX)))
+ if ((PL_op = P
L_ppaddr[OP_ENTERSUB]
(aTHX)))
CALLRUNOPS(aTHX);
LEAVE;
SPAGAIN;