From: Doug MacEachern <dougm@opengroup.org>
Date: Thu, 24 Apr 1997 17:06:21 +0000 (-0400)
Subject: Fix scalar leak in pp_prtf()
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=26db47c4f558e866cc7267a8036a8ebaeaa1ee73;p=p5sagit%2Fp5-mst-13.2.git

Fix scalar leak in pp_prtf()

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

diff --git a/pp_sys.c b/pp_sys.c
index 9d14089..6247f68 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);