From: Stephen McCamant <smcc@mit.edu>
Date: Sun, 6 Apr 2003 16:39:13 +0000 (-0400)
Subject: CvFILE for constant subs
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=3871c2ef9aa1dfeba4631a17efdbf486012d47a6;p=p5sagit%2Fp5-mst-13.2.git

CvFILE for constant subs
Message-ID: <16016.36977.667436.279778@syllepsis.MIT.EDU>

p4raw-id: //depot/perl@19157
---

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 "" */