[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 (file)
--- 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));