From: Ilya Zakharevich <ilya@math.ohio-state.edu>
Date: Fri, 21 Feb 1997 14:53:46 +0000 (+1200)
Subject: Don't clobber $1 et al in debugger's DB::sub()
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=7d4a81e59803671feb918aa6228e2daa2c8d2edf;p=p5sagit%2Fp5-mst-13.2.git

Don't clobber $1 et al in debugger's DB::sub()
---

diff --git a/lib/perl5db.pl b/lib/perl5db.pl
index a82888a..738937f 100644
--- a/lib/perl5db.pl
+++ b/lib/perl5db.pl
@@ -2,7 +2,7 @@ package DB;
 
 # Debugger for Perl 5.00x; perl5db.pl patch level:
 
-$VERSION = 0.9904;
+$VERSION = 0.9905;
 $header = "perl5db.pl patch level $VERSION";
 
 # Enhanced by ilya@math.ohio-state.edu (Ilya Zakharevich)
@@ -1086,8 +1086,8 @@ sub DB {
 
 sub sub {
     my ($al, $ret, @ret) = "";
-    if ($sub =~ /(.*)::AUTOLOAD$/) {
-      $al = " for $ {$1 . '::AUTOLOAD'}";
+    if (length($sub) > 10 && substr($sub, -10, 10) eq '::AUTOLOAD') {
+	$al = " for $$sub";
     }
     push(@stack, $single);
     $single &= 1;