diff options
| author | Ilya Zakharevich <ilya@math.ohio-state.edu> | 1997-02-22 02:53:46 +1200 |
|---|---|---|
| committer | Chip Salzenberg <chip@atlantic.net> | 1997-02-22 02:41:53 +1200 |
| commit | 7d4a81e59803671feb918aa6228e2daa2c8d2edf (patch) | |
| tree | f9670600924d942ac193195eb4130bbb08fd3a3d | |
| parent | c030ccd9d6ca0638398c27d7169051214732a502 (diff) | |
| download | perl-7d4a81e59803671feb918aa6228e2daa2c8d2edf.tar.gz | |
Don't clobber $1 et al in debugger's DB::sub()
| -rw-r--r-- | lib/perl5db.pl | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lib/perl5db.pl b/lib/perl5db.pl index a82888a735..738937fa5f 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; |