Change 21000 by [EMAIL PROTECTED] on 2003/09/02 15:35:40
Retract #20930 because of
Subject: [EMAIL PROTECTED] or before broke mp2 ithreads test
From: Stas Bekman <[EMAIL PROTECTED]>
Date: Mon, 01 Sep 2003 23:31:11 -0700
Message-ID: <[EMAIL PROTECTED]>
Affected files ...
... //depot/perl/op.c#584 edit
Differences ...
==== //depot/perl/op.c#584 (text) ====
Index: perl/op.c
--- perl/op.c#583~20993~ Tue Sep 2 07:40:54 2003
+++ perl/op.c Tue Sep 2 08:35:40 2003
@@ -3787,8 +3787,6 @@
return o;
}
-static void const_sv_xsub(pTHX_ CV* cv);
-
/*
=for apidoc cv_undef
@@ -3804,9 +3802,8 @@
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 @@
}
}
+static void const_sv_xsub(pTHX_ CV* cv);
+
/*
=head1 Optree Manipulation Functions
@@ -4350,9 +4349,6 @@
CvXSUBANY(cv).any_ptr = sv;
CvCONST_on(cv);
sv_setpv((SV*)cv, ""); /* prototype is "" */
-
- if (stash)
- CopSTASH_free(PL_curcop);
LEAVE;
End of Patch.
