In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/a1e27170fc118bb226e97988b42fb9a970689740?hp=bf55d65d91cd95545972d61170706df20eba4db2>
- Log ----------------------------------------------------------------- commit a1e27170fc118bb226e97988b42fb9a970689740 Author: Tony Cook <[email protected]> Date: Tue Aug 11 15:49:37 2015 +1000 [perl #125781] handle range overflow when Size_t is smaller than IV ----------------------------------------------------------------------- Summary of changes: pp_ctl.c | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) 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) -- Perl5 Master Repository
