diff options
| author | Doug MacEachern <dougm@covalent.net> | 2001-07-09 13:16:49 -0700 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-07-10 13:47:20 +0000 |
| commit | f3e31eb5cfe757531e8a22aaae8d82ce0c167b3c (patch) | |
| tree | 511c53a00cc817c184b1c4fd20150604f2e76d17 | |
| parent | d0c93ae95d925e05df5353ae7c3d57a09e757774 (diff) | |
| download | perl-f3e31eb5cfe757531e8a22aaae8d82ce0c167b3c.tar.gz | |
[patch] undef &xsub for 1,2
Message-ID: <Pine.LNX.4.21.0107092012570.1913-100000@mako.covalent.net>
(This version of the patch with a comment from Gisle.)
p4raw-id: //depot/perl@11258
| -rw-r--r-- | op.c | 3 |
1 files changed, 2 insertions, 1 deletions
@@ -4165,9 +4165,10 @@ Perl_cv_undef(pTHX_ CV *cv) #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)) { |