case KEY_push:
case KEY_setpgrp: case KEY_shift:
case KEY_splice:
- case KEY_stat: case KEY_substr:
+ case KEY_stat:
case KEY_sysopen:
case KEY_system:
case KEY_tell: case KEY_tie: case KEY_tied:
new ATTRSUB. */
(void)core_prototype((SV *)cv, name, code, &opnum);
if (ampable) {
- if (opnum == OP_VEC || opnum == OP_LOCK) CvLVALUE_on(cv);
+ if (opnum == OP_VEC || opnum == OP_LOCK
+ || opnum == OP_SUBSTR)
+ CvLVALUE_on(cv);
newATTRSUB(oldsavestack_ix,
newSVOP(
OP_CONST, 0,