diff options
| author | Ilya Zakharevich <ilya@math.berkeley.edu> | 1998-07-30 16:02:04 -0400 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-08-02 04:32:30 +0000 |
| commit | ed0d1bf7a96441c0ced673e08553f37b3d8b5613 (patch) | |
| tree | 490cec6499764e05d875128bed75e5ab84f3f4af /lib/perl5db.pl | |
| parent | 88c0f95826d6bf6e427f14d1450bb57c1126385b (diff) | |
| download | perl-ed0d1bf7a96441c0ced673e08553f37b3d8b5613.tar.gz | |
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
Diffstat (limited to 'lib/perl5db.pl')
| -rw-r--r-- | lib/perl5db.pl | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lib/perl5db.pl b/lib/perl5db.pl index bad153c574..099a49b49f 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]) { |