[patch] perl_clone+CvFILE

following patch is required, else cv_undef() dumps core during
perl_destruct() of a clone, here:

#ifdef USE_ITHREADS
    if (CvFILE(cv) && !CvXSUB(cv)) {
	Safefree(CvFILE(cv));
	CvFILE(cv) = 0;
    }
#endif

Index: sv.c
===================================================================
RCS file: /usr/local/cvs_repository/perl-current-mirror/sv.c,v
retrieving revision 1.1.1.53
diff -u -r1.1.1.53 sv.c
--- sv.c	2001/06/21 21:23:57	1.1.1.53
+++ sv.c	2001/06/25 22:16:23
@@ -9004,6 +9004,7 @@
 	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));

• [patch] perl_clone+CvFILE by Doug MacEachern
• Re: [patch] perl_clone+CvFILE by Robin Houston
• Re: [patch] perl_clone+CvFILE by Doug MacEachern
• Re: [patch] perl_clone+CvFILE by Jarkko Hietaniemi