summaryrefslogtreecommitdiff
path: root/pp.c
diff options
context:
space:
mode:
authorDavid Mitchell <davem@iabyn.com>2018-04-26 11:42:54 +0100
committerDavid Mitchell <davem@iabyn.com>2018-04-26 11:42:54 +0100
commitd98f51adb895010fdfbe73640d0f92bb48669f24 (patch)
tree3175d853c3eff43c1a87c1f7cf03a052f33e015c /pp.c
parent5dbe8f0a915c25666dd9c760775f619c34a51538 (diff)
downloadperl-d98f51adb895010fdfbe73640d0f92bb48669f24.tar.gz
Revert "Unweaken refs in in-place reverse"
This reverts commit 5bad3c4f3a4515aaa622eecdf6f5a84fcaff7ed9. See RT #132142. For now, re-introduce the bug that fails to convert weak refs to strong refs when sorting in place. This is commit 1 of 2.
Diffstat (limited to 'pp.c')
-rw-r--r--pp.c7
1 files changed, 0 insertions, 7 deletions
diff --git a/pp.c b/pp.c
index d777ae4309..826c20748b 100644
--- a/pp.c
+++ b/pp.c
@@ -5618,14 +5618,7 @@ PP(pp_reverse)
SV * const tmp = *begin;
*begin++ = *end;
*end-- = tmp;
-
- if (tmp && SvWEAKREF(tmp))
- sv_rvunweaken(tmp);
}
-
- /* make sure we catch the middle element */
- if (begin == end && *begin && SvWEAKREF(*begin))
- sv_rvunweaken(*begin);
}
}
}