S_require_file - make mortalcopy directly

richardleach · richardleach · commit 519c062b9cdb · 2025-05-15T21:15:43.000Z
diff --git a/pp_ctl.c b/pp_ctl.c
@@ -4803,8 +4803,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
`@@ -4803,8 +4803,7 @@ S_require_file(pTHX_ SV *sv)`
`4803`	`4803`	`}`
`4804`	`4804`
`4805`	`4805`	`if (SvPADTMP(nsv)) {`
`4806`		`- nsv = sv_newmortal();`
`4807`		`- SvSetSV_nosteal(nsv,sv);`
	`4806`	`+ nsv = sv_mortalcopy_flags(sv, SV_GMAGIC\|SV_NOSTEAL\|SV_DO_COW_SVSETSV);`
`4808`	`4807`	`}`
`4809`	`4808`
`4810`	`4809`	`const char *method = NULL;`