S_require_file - make mortalcopy directly

richardleach · richardleach · commit 0dfe2260ebc7 · 2025-06-08T22:24:11.000Z
diff --git a/pp_ctl.c b/pp_ctl.c
@@ -4811,8 +4811,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
`@@ -4811,8 +4811,7 @@ S_require_file(pTHX_ SV *sv)`
`4811`	`4811`	`}`
`4812`	`4812`
`4813`	`4813`	`if (SvPADTMP(nsv)) {`
`4814`		`- nsv = sv_newmortal();`
`4815`		`- SvSetSV_nosteal(nsv,sv);`
	`4814`	`+ nsv = sv_mortalcopy_flags(sv, SV_GMAGIC\|SV_NOSTEAL\|SV_DO_COW_SVSETSV);`
`4816`	`4815`	`}`
`4817`	`4816`
`4818`	`4817`	`const char *method = NULL;`