From: Nicholas Clark <nick@ccl4.org>
Date: Tue, 31 Mar 2009 09:33:22 +0000 (+0100)
Subject: Note why we need a seemingly useless empty &Regexp::DESTROY
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=85a79b09b8bc5e91d2e64794fda42d63aa8f1f2f;p=p5sagit%2Fp5-mst-13.2.git

Note why we need a seemingly useless empty &Regexp::DESTROY
---

diff --git a/universal.c b/universal.c
index 6041c6d..1a76cfd 100644
--- a/universal.c
+++ b/universal.c
@@ -296,6 +296,7 @@ Perl_boot_core_UNIVERSAL(pTHX)
                XS_Internals_hv_clear_placehold, file, "\\%");
     newXSproto("PerlIO::get_layers",
                XS_PerlIO_get_layers, file, "*;@");
+    /* Providing a Regexp::DESTROY fixes #21347. See test in t/op/ref.t  */
     CvFILE(newCONSTSUB(get_hv("Regexp::", GV_ADD), "DESTROY", NULL))
 	= (char *)file;
     newXSproto("Internals::hash_seed",XS_Internals_hash_seed, file, "");