From: Ilya Zakharevich <ilya@math.ohio-state.edu>
Date: Mon, 31 Mar 1997 23:55:55 +0000 (-0500)
Subject: Fix C<print $_> in debugger
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=e63173ce9ca79e735e674d6d3bfaec8929752e00;p=p5sagit%2Fp5-mst-13.2.git

Fix C<print $_> in debugger

private-msgid: 199703312355.SAA01068@monk.mps.ohio-state.edu
---

diff --git a/lib/perl5db.pl b/lib/perl5db.pl
index 5e2bd43..9718fed 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;
     ();