From: Alexey Tourbin <at@altlinux.ru>
Date: Sat, 24 Feb 2007 14:47:35 +0000 (+0300)
Subject: perlio.c (PerlIO_tmpfile): fix memory leak
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=b2166d27277cfef31200203f778dabd2056ccbc3;p=p5sagit%2Fp5-mst-13.2.git

perlio.c (PerlIO_tmpfile): fix memory leak
Message-ID: <20070224114735.GA3454@localhost.localdomain>

p4raw-id: //depot/perl@30389
---

diff --git a/perlio.c b/perlio.c
index 30f54ec..ad7dec7 100644
--- a/perlio.c
+++ b/perlio.c
@@ -5086,8 +5086,8 @@ PerlIO_tmpfile(void)
 	  if (f)
 	       PerlIOBase(f)->flags |= PERLIO_F_TEMP;
 	  PerlLIO_unlink(SvPVX_const(sv));
-	  SvREFCNT_dec(sv);
      }
+     SvREFCNT_dec(sv);
 #    else	/* !HAS_MKSTEMP, fallback to stdio tmpfile(). */
      FILE * const stdio = PerlSIO_tmpfile();