[perl #123502] isnan identifier can't be used as a var

[perl5.git] / pp_sys.c

diff --git a/pp_sys.c b/pp_sys.c
index da69cb0..aa006e6 100644 (file)
--- a/pp_sys.c
+++ b/pp_sys.c
@@ -4607,13 +4607,13 @@ PP(pp_gmtime)
     }
     else {
        NV input = Perl_floor(POPn);
-       const bool isnan = Perl_isnan(input);
+       const bool pl_isnan = Perl_isnan(input);
        when = (Time64_T)input;
-       if (UNLIKELY(isnan || when != input)) {
+       if (UNLIKELY(pl_isnan || when != input)) {
            /* diag_listed_as: gmtime(%f) too large */
            Perl_ck_warner(aTHX_ packWARN(WARN_OVERFLOW),
                           "%s(%.0" NVff ") too large", opname, input);
-           if (isnan) {
+           if (pl_isnan) {
                err = NULL;
                goto failed;
            }