diff options
| author | Doug MacEachern <dougm@covalent.net> | 2001-06-26 02:01:16 -0700 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-06-26 17:21:31 +0000 |
| commit | 54356c7d1aa08c09134ef6c0c5f3a940c7976f33 (patch) | |
| tree | 7168f97f2548ea77c544581e3a978ad7ee96cc8a /sv.c | |
| parent | 6b79e9019a2c0320c7bd02d118a806da8b3f822c (diff) | |
| download | perl-54356c7d1aa08c09134ef6c0c5f3a940c7976f33.tar.gz | |
[patch] perl_clone+CvFILE
Message-ID: <Pine.LNX.4.21.0106260900480.28420-100000@mako.covalent.net>
p4raw-id: //depot/perl@10969
Diffstat (limited to 'sv.c')
| -rw-r--r-- | sv.c | 1 |
1 files changed, 1 insertions, 0 deletions
@@ -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)); |