summaryrefslogtreecommitdiff
path: root/pp_hot.c
diff options
context:
space:
mode:
authorDavid Mitchell <davem@iabyn.com>2010-12-15 19:38:17 +0000
committerDavid Mitchell <davem@iabyn.com>2010-12-15 19:41:46 +0000
commita42d02426c51c2ef1bdefac84284a828de703cda (patch)
treeff6b50dda007214dc0ed829f064c3db7723071c7 /pp_hot.c
parentc2f8ff19c9ed44116de94b8779bfd09751377cd8 (diff)
downloadperl-a42d02426c51c2ef1bdefac84284a828de703cda.tar.gz
don't upgrade overload IV return values to NV
(if we can avoid it). Fix for RT #77456. Basically it extends the usage of the AMGf_numeric flag to the remaining overloadable numeric ops that behave differently with IV and NV.
Diffstat (limited to 'pp_hot.c')
-rw-r--r--pp_hot.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/pp_hot.c b/pp_hot.c
index 9c5f3252cf..c1d01035a6 100644
--- a/pp_hot.c
+++ b/pp_hot.c
@@ -334,7 +334,7 @@ PP(pp_readline)
PP(pp_eq)
{
dVAR; dSP;
- tryAMAGICbin_MG(eq_amg, AMGf_set);
+ tryAMAGICbin_MG(eq_amg, AMGf_set|AMGf_numeric);
#ifndef NV_PRESERVES_UV
if (SvROK(TOPs) && !SvAMAGIC(TOPs) && SvROK(TOPm1s) && !SvAMAGIC(TOPm1s)) {
SP--;