Fix scalar leak in pp_prtf()

private-msgid: 199704241706.NAA19140@postman.osf.org

1 files changed, 2 insertions, 1 deletions

diff --git a/pp_sys.c b/pp_sys.c
index 9d140897f4..6247f68165 100644
--- a/pp_sys.c
+++ b/pp_sys.c
@@ -1078,7 +1078,7 @@ PP(pp_prtf)
     GV *gv;
     IO *io;
     PerlIO *fp;
-    SV *sv = NEWSV(0,0);
+    SV *sv;
     MAGIC *mg;
 
     if (op->op_flags & OPf_STACKED)
@@ -1106,6 +1106,7 @@ PP(pp_prtf)
 	RETURN;
     }
 
+    sv = NEWSV(0,0);
     if (!(io = GvIO(gv))) {
 	if (dowarn) {
 	    gv_fullname3(sv, gv, Nullch);