From: Marcus Holland-Moritz <mhx-perl@gmx.net>
Date: Wed, 3 Sep 2003 08:57:25 +0000 (+0200)
Subject: Re: maint@20974 or before broke mp2 ithreads test
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=02f28d4422c060b571af1683cfd1890a475f4e8f;p=p5sagit%2Fp5-mst-13.2.git

Re: maint@20974 or before broke mp2 ithreads test
Message-ID: <29644.1062572245@www50.gmx.net>

The other half of #20930 should be still good.

p4raw-id: //depot/perl@21014
---

diff --git a/op.c b/op.c
index b10eb81..a69b515 100644
--- a/op.c
+++ b/op.c
@@ -4350,6 +4350,9 @@ 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;