From: Tony Cook <tony@develop-help.com>
Date: Mon, 17 Dec 2012 08:19:32 +0000 (+1100)
Subject: fix the debugger t expr command regression
X-Git-Tag: upstream/5.20.0~4434
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=e2b8b3e7fdfd63eca46d686d66dd4e7a69045de5;p=platform%2Fupstream%2Fperl.git

fix the debugger t expr command regression
---

diff --git a/lib/perl5db.pl b/lib/perl5db.pl
index f96f637..58e4c5c 100644
--- 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
--- 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 =>