From: Ilya Zakharevich <ilya@math.berkeley.edu>
Date: Thu, 30 Jul 1998 20:02:04 +0000 (-0400)
Subject: fix bug in display of watched expressions
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=ed0d1bf7a96441c0ced673e08553f37b3d8b5613;p=p5sagit%2Fp5-mst-13.2.git

fix bug in display of watched expressions
	Message-Id: <199807310002.UAA21681@monk.mps.ohio-state.edu>
	Subject: Re: Bug? in perl5db.pl [PATCH]

p4raw-id: //depot/maint-5.005/perl@1691
---

diff --git a/lib/perl5db.pl b/lib/perl5db.pl
index bad153c..099a49b 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 = 1.04;
+$VERSION = 1.0401;
 $header = "perl5db.pl version $VERSION";
 
 # Enhanced by ilya@math.ohio-state.edu (Ilya Zakharevich)
@@ -391,6 +391,7 @@ sub DB {
     if ($trace & 2) {
       for (my $n = 0; $n <= $#to_watch; $n++) {
 	$evalarg = $to_watch[$n];
+	local $onetimeDump;	# Do not output results
 	my ($val) = &eval;	# Fix context (&eval is doing array)?
 	$val = ( (defined $val) ? "'$val'" : 'undef' );
 	if ($val ne $old_watch[$n]) {