diff options
| author | Adrian M. Enache <enache@rdslink.ro> | 2003-04-02 08:02:42 +0300 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2003-04-19 19:40:22 +0000 |
| commit | 39cff0d9bacec3b7c45b12560665095ba3be16b2 (patch) | |
| tree | dfbfd756019e90ca6d3f1e88a83da454b9a4b9ff /ext/B | |
| parent | abc667d141be9d100fa9e0402f7809147d1f69b9 (diff) | |
| download | perl-39cff0d9bacec3b7c45b12560665095ba3be16b2.tar.gz | |
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
Diffstat (limited to 'ext/B')
| -rwxr-xr-x | ext/B/t/stash.t | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/ext/B/t/stash.t b/ext/B/t/stash.t index f3fd07b751..171abf1f37 100755 --- a/ext/B/t/stash.t +++ b/ext/B/t/stash.t @@ -66,7 +66,7 @@ print "# got = @got\n"; $got = "@got"; -my $expected = "attributes Carp Carp::Heavy DB Exporter Exporter::Heavy Internals main utf8 version warnings"; +my $expected = "attributes Carp Carp::Heavy DB Exporter Exporter::Heavy Internals main Regexp utf8 version warnings"; { no strict 'vars'; |