sundry cleanups for cloned interpreters (only known failure mode

is due to regexps keeping non-constant data in their compiled
structures)

p4raw-id: //depot/perl@4579

1 files changed, 1 insertions, 1 deletions

diff --git a/pp_sys.c b/pp_sys.c
index e4ec41ef03..b2495a06dc 100644
--- a/pp_sys.c
+++ b/pp_sys.c
@@ -475,7 +475,7 @@ PP(pp_die)
 		HV *stash = SvSTASH(SvRV(error));
 		GV *gv = gv_fetchmethod(stash, "PROPAGATE");
 		if (gv) {
-		    SV *file = sv_2mortal(newSVsv(CopFILESV(PL_curcop)));
+		    SV *file = sv_2mortal(newSVpv(CopFILE(PL_curcop),0));
 		    SV *line = sv_2mortal(newSViv(CopLINE(PL_curcop)));
 		    EXTEND(SP, 3);
 		    PUSHMARK(SP);