This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Fix syntax error wwhen NAN_COMPARE_BROKEN
authorKarl Williamson <khw@cpan.org>
Mon, 5 Jul 2021 21:47:26 +0000 (15:47 -0600)
committerNicholas Clark <nick@ccl4.org>
Tue, 6 Jul 2021 10:39:51 +0000 (10:39 +0000)
http://nntp.perl.org/group/perl.perl5.porters/26082

sv.c

diff --git a/sv.c b/sv.c
index 3c69dec..e53f68c 100644 (file)
--- a/sv.c
+++ b/sv.c
@@ -9147,7 +9147,7 @@ Perl_sv_dec_nomg(pTHX_ SV *const sv)
                 UNLIKELY(was <= -NV_OVERFLOWS_INTEGERS_AT ||
                          was > NV_OVERFLOWS_INTEGERS_AT) &&
 #if defined(NAN_COMPARE_BROKEN)
-                LIKELY(!Perl_isinfnan(was)))
+                LIKELY(!Perl_isinfnan(was))
 #else
                 LIKELY(!Perl_isinf(was))
 #endif