Detect infnan range ends.

diff --git a/pp_ctl.c b/pp_ctl.c
index fe5c25b..37b822c 100644 (file)
--- a/pp_ctl.c
+++ b/pp_ctl.c
@@ -2095,6 +2095,8 @@ S_outside_integer(pTHX_ SV *sv)
 {
   if (SvOK(sv)) {
     const NV nv = SvNV_nomg(sv);
+    if (Perl_isinfnan(nv))
+      return TRUE;
 #ifdef NV_PRESERVES_UV
     if (nv < (NV)IV_MIN || nv > (NV)IV_MAX)
       return TRUE;