http://perl5.git.perl.org/perl.git?a=search&h=blead&st=grep&s=is_lvalue_sub#define LVRET ((PL_op->op_private & OPpMAYBE_LVSUB) && is_lvalue_sub() +)
http://perl5.git.perl.org/perl.git?a=search&h=blead&st=grep&s=CxLVALI32 1397 Perl_is_lvalue_sub(pTHX) 1398 { 1399 dVAR; 1400 const I32 cxix = dopoptosub(cxstack_ix); 1401 assert(cxix >= 0); /* We should only be called from inside s +ubs */ 1402 1403 if (CxLVAL(cxstack + cxix) && CvLVALUE(cxstack[cxix].blk_sub. +cv)) 1404 return CxLVAL(cxstack + cxix); 1405 else 1406 return 0; 1407 }
http://perl5.git.perl.org/perl.git?a=search&h=blead&st=grep&s=CvLVALUE
In reply to Re^3: lvalue XS subs
by Anonymous Monk
in thread lvalue XS subs
by ikegami
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |