diff options
| author | Nicholas Clark <nick@ccl4.org> | 2009-03-31 10:33:22 +0100 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2009-03-31 10:34:01 +0100 |
| commit | 85a79b09b8bc5e91d2e64794fda42d63aa8f1f2f (patch) | |
| tree | 12f078deb87f72d25ff5725e51a068193f992ff2 /universal.c | |
| parent | b75281af561c595477178d509f948fe07901708a (diff) | |
| download | perl-85a79b09b8bc5e91d2e64794fda42d63aa8f1f2f.tar.gz | |
Note why we need a seemingly useless empty &Regexp::DESTROY
Diffstat (limited to 'universal.c')
| -rw-r--r-- | universal.c | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/universal.c b/universal.c index 6041c6df71..1a76cfd884 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, ""); |