diff options
| author | Tony Cook <tony@develop-help.com> | 2012-12-17 19:19:32 +1100 |
|---|---|---|
| committer | Tony Cook <tony@develop-help.com> | 2012-12-17 19:19:32 +1100 |
| commit | e2b8b3e7fdfd63eca46d686d66dd4e7a69045de5 (patch) | |
| tree | c2252038de4b2dcfdd9fd4f5efaff66c0676b8c1 /lib/perl5db.pl | |
| parent | e42327f3c8cd945abd2c88949102675c931bb2fe (diff) | |
| download | perl-e2b8b3e7fdfd63eca46d686d66dd4e7a69045de5.tar.gz | |
fix the debugger t expr command regression
Diffstat (limited to 'lib/perl5db.pl')
| -rw-r--r-- | lib/perl5db.pl | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/lib/perl5db.pl b/lib/perl5db.pl index f96f63797e..58e4c5c545 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"; |