Change 10969 by jhi@alpha on 2001/06/26 17:21:31
Subject: [patch] perl_clone+CvFILE
From: Doug MacEachern <[EMAIL PROTECTED]>
Date: Tue, 26 Jun 2001 09:01:16 -0700 (PDT)
Message-ID: <[EMAIL PROTECTED]>
Affected files ...
... //depot/perl/sv.c#426 edit
Differences ...
==== //depot/perl/sv.c#426 (text) ====
Index: perl/sv.c
--- perl/sv.c.~1~ Wed Jun 27 16:00:06 2001
+++ perl/sv.c Wed Jun 27 16:00:06 2001
@@ -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));
End of Patch.
