From b547753728bd5c054a3d5bcbabbec2c9aa17fd5b Mon Sep 17 00:00:00 2001
From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Mon, 13 Mar 2000 14:44:11 +0000
Subject: [PATCH] STRLEN != int.

p4raw-id: //depot/cfgperl@5705
---
 mg.c | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

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] ;
-- 
2.7.4