This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Patch by jlv <jloverso@mathworks.com> to stop NEXT::AUTOLOAD
authorRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Mon, 1 Oct 2007 12:00:30 +0000 (12:00 +0000)
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Mon, 1 Oct 2007 12:00:30 +0000 (12:00 +0000)
from emitting warnings under the debugger.
See: http://rt.cpan.org/Public/Bug/Display.html?id=25053

p4raw-id: //depot/perl@32000

lib/perl5db.pl

index db0943c..2b1c2a3 100644 (file)
@@ -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