X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=mg.c;h=4274a20149393769102ca4cf2f4dda871f02ba3d;hb=c00206c8463e3564bde598f9aa9e8be52b3f27e3;hp=fb2b8f173d93061385aedfdf5b5dc5a2b0ec9b9e;hpb=56e90b21f82f04af4f0a1a957067569857cd0ce2;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/mg.c b/mg.c
index fb2b8f1..4274a20 100644
--- a/mg.c
+++ b/mg.c
@@ -1238,7 +1238,7 @@ Perl_magic_setpos(pTHX_ SV *sv, MAGIC *mg)
     SV* lsv = LvTARG(sv);
     SSize_t pos;
     STRLEN len;
-    STRLEN ulen;
+    STRLEN ulen = 0;
     dTHR;
 
     mg = 0;
@@ -1263,8 +1263,6 @@ Perl_magic_setpos(pTHX_ SV *sv, MAGIC *mg)
 	ulen = sv_len_utf8(lsv);
 	if (ulen)
 	    len = ulen;
-	else
-	    ulen = 0;
     }
 
     if (pos < 0) {