diff options
author | Doug MacEachern <dougm@opengroup.org> | 1997-04-24 13:06:21 -0400 |
---|---|---|
committer | Chip Salzenberg <chip@atlantic.net> | 1997-04-25 00:00:00 +1200 |
commit | 26db47c4f558e866cc7267a8036a8ebaeaa1ee73 (patch) | |
tree | f3b3432c97a6df6cf1f5396a92b383777c71a6b1 | |
parent | ed0487c9012a4b772071902a8bbcf6e16b8de5fb (diff) | |
download | perl-26db47c4f558e866cc7267a8036a8ebaeaa1ee73.tar.gz |
Fix scalar leak in pp_prtf()
private-msgid: 199704241706.NAA19140@postman.osf.org
-rw-r--r-- | pp_sys.c | 3 |
1 files changed, 2 insertions, 1 deletions
@@ -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); |