Update the perldelta for 5.9.0.

[p5sagit/p5-mst-13.2.git] / op.c

diff --git a/op.c b/op.c
index b10eb81..a69b515 100644 (file)
--- 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;