Integrate:

[perl5.git] / pp.c

diff --git a/pp.c b/pp.c
index 150cd7d..ec208fa 100644 (file)
--- a/pp.c
+++ b/pp.c
@@ -1494,7 +1494,7 @@ PP(pp_repeat)
            if (count < 1)
                SvCUR_set(TARG, 0);
            else {
-               IV max = count * len;
+               STRLEN max = (UV)count * len;
                if (len > ((MEM_SIZE)~0)/count)
                     Perl_croak(aTHX_ oom_string_extend);
                MEM_WRAP_CHECK_1(max, char, oom_string_extend);