From: Doug MacEachern <dougm@covalent.net>
Date: Tue, 26 Jun 2001 09:01:16 +0000 (-0700)
Subject: [patch] perl_clone+CvFILE
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=54356c7d1aa08c09134ef6c0c5f3a940c7976f33;p=p5sagit%2Fp5-mst-13.2.git

[patch] perl_clone+CvFILE
Message-ID: <Pine.LNX.4.21.0106260900480.28420-100000@mako.covalent.net>

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

diff --git a/sv.c b/sv.c
index 8ba5016..ed427a5 100644
--- a/sv.c
+++ b/sv.c
@@ -9004,6 +9004,7 @@ Perl_sv_dup(pTHX_ SV *sstr, clone_params* param)
 	else
 	    CvOUTSIDE(dstr)	= cv_dup(CvOUTSIDE(sstr), param);
 	CvFLAGS(dstr)	= CvFLAGS(sstr);
+	CvFILE(dstr) = CvXSUB(sstr) ? CvFILE(sstr) : SAVEPV(CvFILE(sstr));
 	break;
     default:
 	Perl_croak(aTHX_ "Bizarre SvTYPE [%d]", SvTYPE(sstr));