RT 72246: rcatline memory leak on bad $/

When allocating a temporary SV, make sure it will get freed if we die.

1 files changed, 3 insertions, 1 deletions

diff --git a/sv.c b/sv.c
index 6173b0af04..2d4e2ab31e 100644
--- a/sv.c
+++ b/sv.c
@@ -7338,11 +7338,13 @@ Perl_sv_gets(pTHX_ register SV *const sv, register PerlIO *const fp, I32 append)
 	    }
 	} else if (SvUTF8(sv)) {
 	    SV * const tsv = newSV(0);
+	    ENTER;
+	    SAVEFREESV(tsv);
 	    sv_gets(tsv, fp, 0);
 	    sv_utf8_upgrade_nomg(tsv);
 	    SvCUR_set(sv,append);
 	    sv_catsv(sv,tsv);
-	    sv_free(tsv);
+	    LEAVE;
 	    goto return_string_or_null;
 	}
     }