From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Sun, 31 May 2009 20:08:41 +0000 (+0200)
Subject: Fix casting warning
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=c494f1f4488c4f068dec8514f981347f6dae60a6;p=p5sagit%2Fp5-mst-13.2.git

Fix casting warning

(that was introduced by 9ef5ed94af)
---

diff --git a/sv.c b/sv.c
index f52d83e..7de171d 100644
--- a/sv.c
+++ b/sv.c
@@ -9674,9 +9674,9 @@ Perl_sv_vcatpvfn(pTHX_ SV *const sv, const char *const pat, const STRLEN patlen,
 	    else {
 		eptr = SvPV_const(argsv, elen);
 		if (DO_UTF8(argsv)) {
-		    I32 old_precis = precis;
+		    STRLEN old_precis = precis;
 		    if (has_precis && precis < elen) {
-			I32 ulen = sv_len_utf8(argsv);
+			STRLEN ulen = sv_len_utf8(argsv);
 			I32 p = precis > ulen ? ulen : precis;
 			sv_pos_u2b(argsv, &p, 0); /* sticks at end */
 			precis = p;