#define LVRET ((PL_op->op_private & OPpMAYBE_LVSUB) && is_lvalue_sub())


##</code><code>##

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 subs */

1402 

1403     if (CxLVAL(cxstack + cxix) && CvLVALUE(cxstack[cxix].blk_sub.cv))

1404         return CxLVAL(cxstack + cxix);

1405     else

1406         return 0;

1407 }