pp_open() could pass an uninitialized filename down to do_open9().

p4raw-id: //depot/perl@6720

diff --git a/pp_sys.c b/pp_sys.c
index 8a77c09..a95c43c 100644 (file)
--- a/pp_sys.c
+++ b/pp_sys.c
@@ -508,7 +508,7 @@ PP(pp_open)
     djSP; dTARGET;
     GV *gv;
     SV *sv;
-    SV *name;
+    SV *name = Nullsv;
     I32 have_name = 0;
     char *tmps;
     STRLEN len;