S_sv_gets_append_to_utf8 - sv_gets upgrades tsv, so create SVt_PV directly.

richardleach · richardleach · commit eb246bb29059 · 2025-10-14T18:13:01.000+01:00
diff --git a/sv.c b/sv.c
@@ -9147,7 +9147,7 @@ Perl_sv_collxfrm_flags(pTHX_ SV *const sv, STRLEN *const nxp, const I32 flags)
 static char *
 S_sv_gets_append_to_utf8(pTHX_ SV *const sv, PerlIO *const fp, SSize_t append)
 {
-    SV * const tsv = newSV_type(SVt_NULL);
+    SV * const tsv = newSV_type(SVt_PV);
     ENTER;
     SAVEFREESV(tsv);
     sv_gets(tsv, fp, 0);

Original file line number	Diff line number	Diff line change
`@@ -9147,7 +9147,7 @@ Perl_sv_collxfrm_flags(pTHX_ SV const sv, STRLEN const nxp, const I32 flags)`
`9147`	`9147`	`static char *`
`9148`	`9148`	`S_sv_gets_append_to_utf8(pTHX_ SV const sv, PerlIO const fp, SSize_t append)`
`9149`	`9149`	`{`
`9150`		`- SV * const tsv = newSV_type(SVt_NULL);`
	`9150`	`+ SV * const tsv = newSV_type(SVt_PV);`
`9151`	`9151`	`ENTER;`
`9152`	`9152`	`SAVEFREESV(tsv);`
`9153`	`9153`	`sv_gets(tsv, fp, 0);`