S_require_file - make mortalcopy directly

richardleach · richardleach · commit 631efeb8dde0 · 2025-08-14T11:34:18.000Z
diff --git a/pp_ctl.c b/pp_ctl.c
@@ -4814,8 +4814,7 @@ S_require_file(pTHX_ SV *sv)
                     }
 
                     if (SvPADTMP(nsv)) {
-                        nsv = sv_newmortal();
-                        SvSetSV_nosteal(nsv,sv);
+                        nsv = sv_mortalcopy_flags(sv, SV_GMAGIC|SV_NOSTEAL|SV_DO_COW_SVSETSV);
                     }
 
                     const char *method = NULL;

Original file line number	Diff line number	Diff line change
`@@ -4814,8 +4814,7 @@ S_require_file(pTHX_ SV *sv)`
`4814`	`4814`	`}`
`4815`	`4815`
`4816`	`4816`	`if (SvPADTMP(nsv)) {`
`4817`		`- nsv = sv_newmortal();`
`4818`		`- SvSetSV_nosteal(nsv,sv);`
	`4817`	`+ nsv = sv_mortalcopy_flags(sv, SV_GMAGIC\|SV_NOSTEAL\|SV_DO_COW_SVSETSV);`
`4819`	`4818`	`}`
`4820`	`4819`
`4821`	`4820`	`const char *method = NULL;`