From: Steve Hay <SteveHay@planit.com>
Date: Thu, 28 Apr 2005 16:38:51 +0000 (+0000)
Subject: Silence a compilation warning on Win32
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=991350d8061a83adab2e55857bf15c14ff5b9c31;p=p5sagit%2Fp5-mst-13.2.git

Silence a compilation warning on Win32

p4raw-id: //depot/perl@24349
---

diff --git a/pp.c b/pp.c
index 4500c57..d107ab5 100644
--- a/pp.c
+++ b/pp.c
@@ -1486,7 +1486,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);