diff options
| author | Father Chrysostomos <sprout@cpan.org> | 2012-05-12 23:18:50 -0700 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2012-05-29 09:36:27 -0700 |
| commit | c4ec50f125f7cd8684d97c0ef47311620b58556a (patch) | |
| tree | c00dcccc0669f9362deffa8846f20e9046453b5e /gv.c | |
| parent | 46bef06f0f3d8f94283e79e8c77eb5bf23d08fc3 (diff) | |
| download | perl-c4ec50f125f7cd8684d97c0ef47311620b58556a.tar.gz | |
&CORE::undef should be an lvalue sub
Diffstat (limited to 'gv.c')
| -rw-r--r-- | gv.c | 3 |
1 files changed, 2 insertions, 1 deletions
@@ -542,7 +542,8 @@ S_maybe_add_coresub(pTHX_ HV * const stash, GV *gv, 1 ); assert(GvCV(gv) == cv); - if (opnum != OP_VEC && opnum != OP_SUBSTR && opnum != OP_POS) + if (opnum != OP_VEC && opnum != OP_SUBSTR && opnum != OP_POS + && opnum != OP_UNDEF) CvLVALUE_off(cv); /* Now *that* was a neat trick. */ LEAVE; PL_parser = oldparser; |