Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

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

  • Loading branch information...
commit 85a79b09b8bc5e91d2e64794fda42d63aa8f1f2f 1 parent b75281a
Nicholas Clark authored
Showing with 1 addition and 0 deletions.
  1. +1 −0  universal.c
View
1  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, "");
Please sign in to comment.
Something went wrong with that request. Please try again.