diff options
| author | David Mitchell <davem@iabyn.com> | 2010-05-21 17:07:40 +0100 |
|---|---|---|
| committer | David Mitchell <davem@iabyn.com> | 2010-05-21 17:07:40 +0100 |
| commit | ed3b9b3c212f717939207379cdb328156dd4a01e (patch) | |
| tree | 354c7d708fca92ba462cac40b28221ab29015dfc /pp_hot.c | |
| parent | 6f1401dc2acd2a2b85df22b0a74e5f7e6e0a33aa (diff) | |
| download | perl-ed3b9b3c212f717939207379cdb328156dd4a01e.tar.gz | |
followup to magic/overload fix
6f1401dc2acd2a2b85df22b0a74e5f7e6e0a33aa was over-enthusiastic
on removing redundant code in the comparison ops. This code was only used
on 64-bit #ifdef branches which is why I failed to spot it earlier.
So restore that code!
Diffstat (limited to 'pp_hot.c')
| -rw-r--r-- | pp_hot.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -332,7 +332,7 @@ PP(pp_eq) dVAR; dSP; tryAMAGICbin_MG(eq_amg, AMGf_set); #ifndef NV_PRESERVES_UV - if (SvROK(TOPs) && SvROK(TOPm1s)) { + if (SvROK(TOPs) && !SvAMAGIC(TOPs) && SvROK(TOPm1s) && !SvAMAGIC(TOPm1s)) { SP--; SETs(boolSV(SvRV(TOPs) == SvRV(TOPp1s))); RETURN; |