From: Tony Cook <tony@develop-help.com>
Date: Tue, 11 Aug 2015 05:49:37 +0000 (+1000)
Subject: [perl #125781] handle range overflow when Size_t is smaller than IV
X-Git-Tag: v5.23.2~20
X-Git-Url: https://perl5.git.perl.org/perl5.git/commitdiff_plain/a1e27170fc118bb226e97988b42fb9a970689740

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

diff --git a/pp_ctl.c b/pp_ctl.c
index 5b58f47..50db9a8 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)