summaryrefslogtreecommitdiff
path: root/pp.c
diff options
context:
space:
mode:
authorJarkko Hietaniemi <jhi@iki.fi>2001-05-14 13:10:34 +0000
committerJarkko Hietaniemi <jhi@iki.fi>2001-05-14 13:10:34 +0000
commitab903215d0dba02fe67d564bb62d729b4cbaf13e (patch)
tree92c40ae231d403633fd7e35ed55ddd24c2166fbf /pp.c
parent722d2a37ce799172167ea6ea3ae8fb02316fc616 (diff)
downloadperl-ab903215d0dba02fe67d564bb62d729b4cbaf13e.tar.gz
Reference cmp'ing should go through the whole stringification
process shebang, as pointed out by Sarathy in #10091. p4raw-id: //depot/perl@10098
Diffstat (limited to 'pp.c')
-rw-r--r--pp.c6
1 files changed, 0 insertions, 6 deletions
diff --git a/pp.c b/pp.c
index d5e4dd7fb0..91c0f19bea 100644
--- a/pp.c
+++ b/pp.c
@@ -1978,12 +1978,6 @@ PP(pp_sne)
PP(pp_scmp)
{
dSP; dTARGET; tryAMAGICbin(scmp,0);
-#ifndef NV_PRESERVES_UV
- if (SvROK(TOPs) && SvROK(TOPm1s)) {
- SETi(PTR2UV(SvRV(TOPs)) - PTR2UV(SvRV(TOPm1s)));
- RETURN;
- }
-#endif
{
dPOPTOPssrl;
int cmp = ((PL_op->op_private & OPpLOCALE)