Don't clobber $1 et al in debugger's DB::sub()
authorIlya Zakharevich <ilya@math.ohio-state.edu>
Fri, 21 Feb 1997 14:53:46 +0000 (02:53 +1200)
committerChip Salzenberg <chip@atlantic.net>
Fri, 21 Feb 1997 14:41:53 +0000 (02:41 +1200)
lib/perl5db.pl

index a82888a..738937f 100644 (file)
@@ -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;