PerlIO_tmpfile: Don't leak an SV

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

diff --git a/perlio.c b/perlio.c
index ec19bfe..07de32a 100644 (file)
--- 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);