Change 11258 by jhi@alpha on 2001/07/10 13:47:20
Subject: [patch] undef &xsub for 1,2
From: Doug MacEachern <[EMAIL PROTECTED]>
Date: Mon, 9 Jul 2001 20:16:49 -0700 (PDT)
Message-ID: <[EMAIL PROTECTED]>
(This version of the patch with a comment from Gisle.)
Affected files ...
... //depot/perl/op.c#411 edit
Differences ...
==== //depot/perl/op.c#411 (text) ====
Index: perl/op.c
--- perl/op.c.~1~ Tue Jul 10 08:00:05 2001
+++ perl/op.c Tue Jul 10 08:00:05 2001
@@ -4165,9 +4165,10 @@
#ifdef USE_ITHREADS
if (CvFILE(cv) && !CvXSUB(cv)) {
+ /* for XSUBs CvFILE point directly to static memory; __FILE__ */
Safefree(CvFILE(cv));
- CvFILE(cv) = 0;
}
+ CvFILE(cv) = 0;
#endif
if (!CvXSUB(cv) && CvROOT(cv)) {
End of Patch.
