[perl #125781] handle range overflow when Size_t is smaller than IV

1 files changed, 5 insertions, 1 deletions

diff --git a/pp_ctl.c b/pp_ctl.c
index 5b58f47684..50db9a83be 100644
--- a/pp_ctl.c
+++ b/pp_ctl.c
@@ -1206,7 +1206,11 @@ PP(pp_flop)
                     /* The wraparound of signed integers is undefined
                      * behavior, but here we aim for count >=1, and
                      * negative count is just wrong. */
-                    if (n < 1)
+                    if (n < 1
+#if IVSIZE > Size_t_size
+                        || n > SSize_t_MAX
+#endif
+                        )
                         overflow = TRUE;
                 }
                 if (overflow)