diff options
| author | Ilya Zakharevich <ilya@math.ohio-state.edu> | 1997-03-31 18:55:55 -0500 |
|---|---|---|
| committer | Chip Salzenberg <chip@atlantic.net> | 1997-03-26 07:04:34 +1200 |
| commit | e63173ce9ca79e735e674d6d3bfaec8929752e00 (patch) | |
| tree | af0523a0dc0d617707d92aadc7e0716732928747 /lib | |
| parent | 91a06757ac3b925b7c0c6afbf3f1378bd4051754 (diff) | |
| download | perl-e63173ce9ca79e735e674d6d3bfaec8929752e00.tar.gz | |
Fix C<print $_> in debugger
private-msgid: 199703312355.SAA01068@monk.mps.ohio-state.edu
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/perl5db.pl | 10 |
1 files changed, 7 insertions, 3 deletions
diff --git a/lib/perl5db.pl b/lib/perl5db.pl index 5e2bd43ae6..9718fede67 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.9908; +$VERSION = 0.9909; $header = "perl5db.pl patch level $VERSION"; # Enhanced by ilya@math.ohio-state.edu (Ilya Zakharevich) @@ -411,7 +411,9 @@ sub DB { $evalarg = $action, &eval if $action; if ($single || $was_signal) { local $level = $level + 1; - map {$evalarg = $_, &eval} @$pre; + foreach $evalarg (@$pre) { + &eval; + } print $OUT $#stack . " levels deep in subroutine calls!\n" if $single & 4; $start = $line; @@ -1074,7 +1076,9 @@ sub DB { } } # CMD: $exiting = 1 unless defined $cmd; - map {$evalarg = $_; &eval} @$post; + foreach $evalarg (@$post) { + &eval; + } } # if ($single || $signal) ($@, $!, $,, $/, $\, $^W) = @saved; (); |