diff options
| author | Stas Bekman <stas@stason.org> | 2003-09-01 16:31:11 -0700 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2003-09-02 15:35:40 +0000 |
| commit | 35f1c1c77f660b910b6112c847a62b8d3cd3b402 (patch) | |
| tree | 0fe288a93fa2f2735adb0899ce8fb9be5062ffe3 /op.c | |
| parent | 64b374f47ab87515a3309424011c03542689c7c6 (diff) | |
| download | perl-35f1c1c77f660b910b6112c847a62b8d3cd3b402.tar.gz | |
Retract #20930 because of
Subject: maint@20974 or before broke mp2 ithreads test
Message-ID: <3F54392F.7080009@stason.org>
p4raw-id: //depot/perl@21000
Diffstat (limited to 'op.c')
| -rw-r--r-- | op.c | 12 |
1 files changed, 4 insertions, 8 deletions
@@ -3787,8 +3787,6 @@ Perl_newLOOPEX(pTHX_ I32 type, OP *label) return o; } -static void const_sv_xsub(pTHX_ CV* cv); - /* =for apidoc cv_undef @@ -3804,9 +3802,8 @@ void Perl_cv_undef(pTHX_ CV *cv) { #ifdef USE_ITHREADS - if (CvFILE(cv) && (!CvXSUB(cv) || CvXSUB(cv) == const_sv_xsub)) { - /* for XSUBs CvFILE point directly to static memory; __FILE__ - * except when XSUB was constructed via newCONSTSUB() */ + if (CvFILE(cv) && !CvXSUB(cv)) { + /* for XSUBs CvFILE point directly to static memory; __FILE__ */ Safefree(CvFILE(cv)); } CvFILE(cv) = 0; @@ -3868,6 +3865,8 @@ Perl_cv_ckproto(pTHX_ CV *cv, GV *gv, char *p) } } +static void const_sv_xsub(pTHX_ CV* cv); + /* =head1 Optree Manipulation Functions @@ -4351,9 +4350,6 @@ Perl_newCONSTSUB(pTHX_ HV *stash, char *name, SV *sv) CvCONST_on(cv); sv_setpv((SV*)cv, ""); /* prototype is "" */ - if (stash) - CopSTASH_free(PL_curcop); - LEAVE; return cv; |