diff options
| author | Andreas Schwab <schwab@suse.de> | 2001-03-26 19:29:04 +0200 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-03-26 21:20:53 +0000 |
| commit | 4c9fe80f85ef85e4b82a3cf7b265973092634589 (patch) | |
| tree | d467480bfe00168876b7ce102c320f8072e986d8 /pp_hot.c | |
| parent | 00d78f41b444805ec3be1a01c81dfae120786fe2 (diff) | |
| download | perl-4c9fe80f85ef85e4b82a3cf7b265973092634589.tar.gz | |
$ref1 == $ref2 without NV_PRESERVES_UV
Message-ID: <jeitkw5z27.fsf@hawking.suse.de>
(The patch for 5.6.0 or so, this is a guess for bleadperl)
p4raw-id: //depot/perl@9366
Diffstat (limited to 'pp_hot.c')
| -rw-r--r-- | pp_hot.c | 12 |
1 files changed, 9 insertions, 3 deletions
@@ -230,12 +230,18 @@ PP(pp_readline) PP(pp_eq) { dSP; tryAMAGICbinSET(eq,0); +#ifndef NV_PRESERVES_UV + if (SvROK(TOPs) && SvROK(TOPm1s)) { + SETs(boolSV(SvRV(TOPs) == SvRV(TOPm1s))); + RETURN; + } +#endif #ifdef PERL_PRESERVE_IVUV SvIV_please(TOPs); if (SvIOK(TOPs)) { - /* Unless the left argument is integer in range we are going to have to - use NV maths. Hence only attempt to coerce the right argument if - we know the left is integer. */ + /* Unless the left argument is integer in range we are going + to have to use NV maths. Hence only attempt to coerce the + right argument if we know the left is integer. */ SvIV_please(TOPm1s); if (SvIOK(TOPm1s)) { bool auvok = SvUOK(TOPm1s); |