This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
pp.c:pp_coreargs: use PL_op_desc instead of OP_DESC
authorFather Chrysostomos <sprout@cpan.org>
Sat, 12 May 2012 04:48:58 +0000 (21:48 -0700)
committerFather Chrysostomos <sprout@cpan.org>
Tue, 29 May 2012 16:36:25 +0000 (09:36 -0700)
commit2a90c7c66a488294c5c30860c8d5794bb9264c30
tree62ef2eb7eccc53ba78200b54c08aeb3295ba5382
parentd51f8b19c6cefdcf4f7b6c08b7458ab3c80b0a8e
pp.c:pp_coreargs: use PL_op_desc instead of OP_DESC

Instead of using OP_DESC on op_next, since we already know the op
number, we can just go straight to PL_op_desc, which is what OP_DESC
itself uses after looking inside op_next to find out what the op
number is.

BTW, &CORE::scalar will need this, since a scalar op is never actu-
ally executed, making coreargs’ op_next pointer point to another op
than expected:

2  <1> leavesublv[1 ref] K/REFC,1 ->(end)
-     <1> scalar sKP/1 ->2
1        <$> coreargs(IV 2) s ->2
-e syntax OK

Otherwise we get ‘Not enough arguments for lvalue subroutine return’.
pp.c