From fe9745bfc279b016730696fd0a6abca4d493be60 Mon Sep 17 00:00:00 2001
From: Nick Ing-Simmons <nik@tiuk.ti.com>
Date: Sat, 24 Mar 2001 19:40:34 +0000
Subject: Fix un-init variable leading to spurious "Out of Memory!"

p4raw-id: //depot/perlio@9332
---
 doio.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'doio.c')

diff --git a/doio.c b/doio.c
index d980deaa37..f6566bb521 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);
-- 
cgit v1.2.1