X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=doio.c;h=f6566bb52138f3ddfc033bc6ebc345fa395ffd0f;hb=d81966ff01fcaf0e13cf1b40d512739033a43e42;hp=d980deaa37a7c5d60f3b4773a1d0e154c36eca76;hpb=f6c77cf1bf4d7cb2c7a64dd7608120b471f84062;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/doio.c b/doio.c
index d980dea..f6566bb 100644
--- a/doio.c
+++ b/doio.c
@@ -210,7 +210,7 @@ Perl_do_openn(pTHX_ GV *gv, register char *name, I32 len, int as_raw,
 	    *tend-- = '\0';
 	if (num_svs) {
 	    /* New style explict name, type is just mode and discipline/layer info */
-	    STRLEN l;
+	    STRLEN l = 0;
 	    name = SvOK(*svp) ? SvPV(*svp, l) : "";
 	    len = (I32)l;
 	    name = savepvn(name, len);