diff options
| author | Bram <p5p@perl.wizbit.be> | 2009-07-25 16:26:45 +0200 |
|---|---|---|
| committer | Craig A. Berry <craigberry@mac.com> | 2009-07-25 13:58:15 -0500 |
| commit | b7bfa855cd96849c1ce8b7e9624b69c94149aacc (patch) | |
| tree | f93fd96f6fdc8d2215ecbf3e8f5e3791205b651a /lib/perl5db.pl | |
| parent | 1375cf1cf2085f851bb176047d5e60248542f555 (diff) | |
| download | perl-b7bfa855cd96849c1ce8b7e9624b69c94149aacc.tar.gz | |
Do not use a regex in DB::sub
Diffstat (limited to 'lib/perl5db.pl')
| -rw-r--r-- | lib/perl5db.pl | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lib/perl5db.pl b/lib/perl5db.pl index 03ef2a2c6b..33bbc478ba 100644 --- a/lib/perl5db.pl +++ b/lib/perl5db.pl @@ -3639,6 +3639,8 @@ arguments with which the subroutine was invoked =cut sub sub { + # Do not use a regex in this subroutine -> results in corrupted memory + # See: [perl #66110] # lock ourselves under threads lock($DBGR); @@ -3647,7 +3649,7 @@ sub sub { # sub's return value in (if needed), and an array to put the sub's # return value in (if needed). my ( $al, $ret, @ret ) = ""; - if ($sub =~ /^threads::new$/ && $ENV{PERL5DB_THREADED}) { + if ($sub eq 'threads::new' && $ENV{PERL5DB_THREADED}) { print "creating new thread\n"; } |