PerlIO_tmpfile: Don't leak an SV

This was spotted by Daniel Dragan on the thread for #120591

1 files changed, 1 insertions, 0 deletions

diff --git a/perlio.c b/perlio.c
index ec19bfe453..07de32a1a8 100644
--- a/perlio.c
+++ b/perlio.c
@@ -4967,6 +4967,7 @@ PerlIO_tmpfile(void)
 	 fd = mkstemp(SvPVX(sv));
      }
      if (fd < 0) {
+	 SvREFCNT_dec(sv);
 	 sv = NULL;
 	 /* else we try /tmp */
 	 fd = mkstemp(tempname);