From 39cff0d9bacec3b7c45b12560665095ba3be16b2 Mon Sep 17 00:00:00 2001 From: "Adrian M. Enache" Date: Wed, 2 Apr 2003 08:02:42 +0300 Subject: Fix bug #21347 (segfault in UNIVERSAL::AUTOLOAD with qr//) by adding a dummy destructor method Regexp::DESTROY. This prevents infinite recursion, since Regexp::DESTROY is no more autoloaded. Subject: Re: [perl #21347] segfault in UNIVERSAL::AUTOLOAD Message-ID: <20030402020242.GA2966@ratsnest.hole> p4raw-id: //depot/perl@19277 --- universal.c | 7 +++++++ 1 file changed, 7 insertions(+) (limited to 'universal.c') diff --git a/universal.c b/universal.c index 24621d20fc..e7889fb1fd 100644 --- a/universal.c +++ b/universal.c @@ -182,6 +182,7 @@ XS(XS_Internals_SvREADONLY); XS(XS_Internals_SvREFCNT); XS(XS_Internals_hv_clear_placehold); XS(XS_PerlIO_get_layers); +XS(XS_Regexp_DESTROY); void Perl_boot_core_UNIVERSAL(pTHX) @@ -222,6 +223,7 @@ Perl_boot_core_UNIVERSAL(pTHX) XS_Internals_hv_clear_placehold, file, "\\%"); newXSproto("PerlIO::get_layers", XS_PerlIO_get_layers, file, "*;@"); + newXS("Regexp::DESTROY", XS_Regexp_DESTROY, file); } @@ -723,6 +725,11 @@ XS(XS_Internals_hv_clear_placehold) XSRETURN(0); } +XS(XS_Regexp_DESTROY) +{ + +} + XS(XS_PerlIO_get_layers) { dXSARGS; -- cgit v1.2.1