From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Mon, 1 Oct 2007 12:00:30 +0000 (+0000)
Subject: Patch by jlv <jloverso@mathworks.com> to stop NEXT::AUTOLOAD
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=c81c05fc71b468882f9d1d9299892d7dca11b47c;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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