summaryrefslogtreecommitdiff
path: root/op.c
diff options
context:
space:
mode:
authorStephen McCamant <smcc@mit.edu>2003-04-06 12:39:13 -0400
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>2003-04-06 20:53:29 +0000
commit3871c2ef9aa1dfeba4631a17efdbf486012d47a6 (patch)
treee87215fa56cd005e6ed18a123abdee487fabaf76 /op.c
parentf5e614f21843d4cc6ff931ce9e734273c42248aa (diff)
downloadperl-3871c2ef9aa1dfeba4631a17efdbf486012d47a6.tar.gz
CvFILE for constant subs
Message-ID: <16016.36977.667436.279778@syllepsis.MIT.EDU> p4raw-id: //depot/perl@19157
Diffstat (limited to 'op.c')
-rw-r--r--op.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/op.c b/op.c
index 2c6b675475..af1fd08ac5 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 "" */