fix the debugger t expr command regression

diff --git a/lib/perl5db.pl b/lib/perl5db.pl
index f96f637..58e4c5c 100644 (file)
--- a/lib/perl5db.pl
+++ b/lib/perl5db.pl
@@ -3031,6 +3031,9 @@ any variables we might want to address in the C<DB> package.
 
             }    # PIPE:
 
+            # trace an expression
+            $cmd =~ s/^t\s/\$DB::trace |= 1;\n/;
+
             # Make sure the flag that says "the debugger's running" is
             # still on, to make sure we get control again.
             $evalarg = "\$^D = \$^D | \$DB::db_stop;\n$cmd";

diff --git a/lib/perl5db.t b/lib/perl5db.t
index 43345d0..b021ffe 100644 (file)
--- a/lib/perl5db.t
+++ b/lib/perl5db.t
@@ -9,7 +9,6 @@ BEGIN {
 use strict;
 use warnings;
 use Config;
-use vars qw($TODO);
 
 BEGIN {
     if (! -c "/dev/null") {
@@ -2548,7 +2547,6 @@ sub _calc_trace_wrapper
 }
 
 { # test t expr
-    local $TODO = "t expr is broken";
     my $wrapper = DebugWrap->new(
         {
             cmds =>