summaryrefslogtreecommitdiff
path: root/pp_hot.c
diff options
context:
space:
mode:
authorNicholas Clark <nick@ccl4.org>2001-11-20 21:59:51 +0000
committerJarkko Hietaniemi <jhi@iki.fi>2001-11-21 00:40:09 +0000
commite61d22efbb00a7fa2de05bf2c594ec3b6f671baf (patch)
tree8af835f85dda1bc7fd9f6e1627e6b47d928be746 /pp_hot.c
parent9124316ee7cc50a30161a176ef51b0432a068a78 (diff)
downloadperl-e61d22efbb00a7fa2de05bf2c594ec3b6f671baf.tar.gz
spaceship and refs
Message-ID: <20011120215951.U62891@plum.flirble.org> p4raw-id: //depot/perl@13147
Diffstat (limited to 'pp_hot.c')
-rw-r--r--pp_hot.c3
1 files changed, 2 insertions, 1 deletions
diff --git a/pp_hot.c b/pp_hot.c
index be94e10260..8781b6ce7e 100644
--- a/pp_hot.c
+++ b/pp_hot.c
@@ -237,7 +237,8 @@ PP(pp_eq)
dSP; tryAMAGICbinSET(eq,0);
#ifndef NV_PRESERVES_UV
if (SvROK(TOPs) && SvROK(TOPm1s)) {
- SETs(boolSV(SvRV(TOPs) == SvRV(TOPm1s)));
+ SP--;
+ SETs(boolSV(SvRV(TOPs) == SvRV(TOPp1s)));
RETURN;
}
#endif