diff options
author | Father Chrysostomos <sprout@cpan.org> | 2010-10-25 14:20:57 -0700 |
---|---|---|
committer | Father Chrysostomos <sprout@cpan.org> | 2010-10-25 14:20:57 -0700 |
commit | 88863a5d0ed0c65ebd8d25f01dd2e6a1b38578ac (patch) | |
tree | e7fdcbd191091ad88a55d7d7139d1219ec7eb1a1 /pp_hot.c | |
parent | 830748013f81bcc28d145baf4024efd1b6537704 (diff) | |
download | perl-88863a5d0ed0c65ebd8d25f01dd2e6a1b38578ac.tar.gz |
Revert "Fix for RT#1804: Anonymous glob breaks when assigned through"
This reverts commit 0fe688f528b0e1b5bef6fb30d5e45316430e8a41, except
for the tests.
It is no longer necessary, as of change 2acc3314e31a9. Another reason
for this revert is that doing so fixes bug #77812, or at least it
would if 2acc3314e31a9 had not fixed that, too.
Diffstat (limited to 'pp_hot.c')
-rw-r--r-- | pp_hot.c | 8 |
1 files changed, 0 insertions, 8 deletions
@@ -112,7 +112,6 @@ PP(pp_and) PP(pp_sassign) { dVAR; dSP; dPOPTOPssrl; - U32 wasfake = 0; if (PL_op->op_private & OPpASSIGN_BACKWARDS) { SV * const temp = left; @@ -198,14 +197,7 @@ PP(pp_sassign) } } - /* Allow glob assignments like *$x = ..., which, when the glob has a - SVf_FAKE flag, cannot be distinguished from $x = ... without looking - at the op tree. */ - if( isGV_with_GP(right) && cBINOP->op_last->op_type == OP_RV2GV - && (wasfake = SvFLAGS(right) & SVf_FAKE) ) - SvFLAGS(right) &= ~SVf_FAKE; SvSetMagicSV(right, left); - if(wasfake) SvFLAGS(right) |= SVf_FAKE; SETs(right); RETURN; } |