#define LVRET ((PL_op->op_private & OPpMAYBE_LVSUB) && is_lvalue_sub()
+)
[download]

I32

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 }
[download]

http://perl5.git.perl.org/perl.git?a=search&h=blead&st=grep&s=CvLVALUE

CvLVALUE site:cpansearch.perl.org

CxLVAL site:cpansearch.perl.org