From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Mon, 13 Mar 2000 14:44:11 +0000 (+0000)
Subject: STRLEN != int.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=b547753728bd5c054a3d5bcbabbec2c9aa17fd5b;p=p5sagit%2Fp5-mst-13.2.git

STRLEN != int.

p4raw-id: //depot/cfgperl@5705
---

diff --git a/mg.c b/mg.c
index 8bdb2ee..fbc74c4 100644
--- a/mg.c
+++ b/mg.c
@@ -1724,9 +1724,8 @@ Perl_magic_set(pTHX_ SV *sv, MAGIC *mg)
 	            PL_dowarn |= G_WARN_ONCE ;
 	        }	
 		else {
-		    int i ;
+		    STRLEN len, i;
 		    int accumulate = 0 ;
-		    int len ;
 		    char * ptr = (char*)SvPV(sv, len) ;
 		    for (i = 0 ; i < len ; ++i) 
 		        accumulate += ptr[i] ;