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

diff --git a/lib/perl5db.pl b/lib/perl5db.pl
index db0943c..2b1c2a3 100644 (file)
--- 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