From 3871c2ef9aa1dfeba4631a17efdbf486012d47a6 Mon Sep 17 00:00:00 2001 From: Stephen McCamant Date: Sun, 6 Apr 2003 12:39:13 -0400 Subject: [PATCH] CvFILE for constant subs Message-ID: <16016.36977.667436.279778@syllepsis.MIT.EDU> p4raw-id: //depot/perl@19157 --- op.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/op.c b/op.c index 2c6b675..af1fd08 100644 --- a/op.c +++ b/op.c @@ -4273,7 +4273,7 @@ Perl_newCONSTSUB(pTHX_ HV *stash, char *name, SV *sv) CopSTASH_set(PL_curcop,stash); } - cv = newXS(name, const_sv_xsub, __FILE__); + cv = newXS(name, const_sv_xsub, CopFILE(PL_curcop)); CvXSUBANY(cv).any_ptr = sv; CvCONST_on(cv); sv_setpv((SV*)cv, ""); /* prototype is "" */ -- 1.8.3.1