diff options
| author | David Mitchell <davem@iabyn.com> | 2013-11-16 00:01:32 +0000 |
|---|---|---|
| committer | David Mitchell <davem@iabyn.com> | 2013-11-16 00:01:32 +0000 |
| commit | 659c4b9601a634cd50919970684ee46143183238 (patch) | |
| tree | eb876c46404f7b1e190a307d6831e0bc6d651921 /dump.c | |
| parent | 16f3356ebb78fba83c909d19134ee12e98557f24 (diff) | |
| download | perl-659c4b9601a634cd50919970684ee46143183238.tar.gz | |
Revert "make perl core quiet under -Wfloat-equal"
A suggested way of avoiding the the warning on nv1 != nv2
by replacing it with (nv1 < nv2 || nv1 > nv2), has too many issues
with NaN. [perl #120538].
I haven't found any other way of selectively disabling the warning,
so for now I'm just reverting the whole commit.
This reverts commit c279c4550ce59702722d0921739b1a1b92701b0d.
Diffstat (limited to 'dump.c')
| -rw-r--r-- | dump.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -475,7 +475,7 @@ Perl_sv_peek(pTHX_ SV *sv) !(~SvFLAGS(sv) & (SVf_POK|SVf_NOK|SVf_READONLY| SVp_POK|SVp_NOK)) && SvCUR(sv) == 0 && - NV_eq_nowarn(SvNVX(sv), 0.0)) + SvNVX(sv) == 0.0) goto finish; } else if (sv == &PL_sv_yes) { @@ -486,7 +486,7 @@ Perl_sv_peek(pTHX_ SV *sv) SVp_POK|SVp_NOK)) && SvCUR(sv) == 1 && SvPVX_const(sv) && *SvPVX_const(sv) == '1' && - NV_eq_nowarn(SvNVX(sv), 1.0)) + SvNVX(sv) == 1.0) goto finish; } else { |