summaryrefslogtreecommitdiff
path: root/pp_hot.c
diff options
context:
space:
mode:
authorFather Chrysostomos <sprout@cpan.org>2010-10-25 14:20:57 -0700
committerFather Chrysostomos <sprout@cpan.org>2010-10-25 14:20:57 -0700
commit88863a5d0ed0c65ebd8d25f01dd2e6a1b38578ac (patch)
treee7fdcbd191091ad88a55d7d7139d1219ec7eb1a1 /pp_hot.c
parent830748013f81bcc28d145baf4024efd1b6537704 (diff)
downloadperl-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.c8
1 files changed, 0 insertions, 8 deletions
diff --git a/pp_hot.c b/pp_hot.c
index 3414365b61..fd270e9798 100644
--- a/pp_hot.c
+++ b/pp_hot.c
@@ -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;
}