avoid leaking lexicals into program being debugged (from Ilya

Zakharevich)

p4raw-id: //depot/perl@4923

1 files changed, 4 insertions, 4 deletions

diff --git a/lib/perl5db.pl b/lib/perl5db.pl
index d2bd98e654..b463decf20 100644
--- a/lib/perl5db.pl
+++ b/lib/perl5db.pl
@@ -1254,11 +1254,11 @@ sub save {
 # The following takes its argument via $evalarg to preserve current @_
 
 sub eval {
-    my @res;
+    local @res;			# 'my' would make it visible from user code
     {
-	my $otrace = $trace;
-	my $osingle = $single;
-	my $od = $^D;
+	local $otrace = $trace;
+	local $osingle = $single;
+	local $od = $^D;
 	@res = eval "$usercontext $evalarg;\n"; # '\n' for nice recursive debug
 	$trace = $otrace;
 	$single = $osingle;