diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2007-10-01 12:00:30 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2007-10-01 12:00:30 +0000 |
| commit | c81c05fc71b468882f9d1d9299892d7dca11b47c (patch) | |
| tree | df023319f77b95735d7bb9982e7ffebf9ee0a909 /lib/perl5db.pl | |
| parent | 3776488a91c6ecae36acc5af47fc83f9a8e61fc9 (diff) | |
| download | perl-c81c05fc71b468882f9d1d9299892d7dca11b47c.tar.gz | |
Patch by jlv <jloverso@mathworks.com> to stop NEXT::AUTOLOAD
from emitting warnings under the debugger.
See: http://rt.cpan.org/Public/Bug/Display.html?id=25053
p4raw-id: //depot/perl@32000
Diffstat (limited to 'lib/perl5db.pl')
| -rw-r--r-- | lib/perl5db.pl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/perl5db.pl b/lib/perl5db.pl index db0943c0b5..2b1c2a3869 100644 --- a/lib/perl5db.pl +++ b/lib/perl5db.pl @@ -3637,10 +3637,10 @@ sub sub { print "creating new thread\n"; } - # If the last ten characters are C'::AUTOLOAD', note we've traced + # If the last ten characters are '::AUTOLOAD', note we've traced # into AUTOLOAD for $sub. if ( length($sub) > 10 && substr( $sub, -10, 10 ) eq '::AUTOLOAD' ) { - $al = " for $$sub"; + $al = " for $$sub" if defined $$sub; } # We stack the stack pointer and then increment it to protect us |