STRLEN != int.

p4raw-id: //depot/cfgperl@5705

1 files changed, 1 insertions, 2 deletions

diff --git a/mg.c b/mg.c
index 8bdb2ee862..fbc74c41b2 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] ;