diff options
| author | Shlomi Fish <shlomif@shlomifish.org> | 2015-05-25 20:56:23 +0300 |
|---|---|---|
| committer | Tony Cook <tony@develop-help.com> | 2015-06-03 14:32:03 +1000 |
| commit | 0b1fcdcc0341691e2336d33765522b5215d2f8a2 (patch) | |
| tree | 1e3ca1116ad10819f4097820aca9e4fb26b0cca7 /lib/perl5db.pl | |
| parent | 22055af9e016af9a72e361e971f19d9ba3a83243 (diff) | |
| download | perl-0b1fcdcc0341691e2336d33765522b5215d2f8a2.tar.gz | |
Fix RT#71678 (-d a command after exit) with a test.
Credits to Heiko Eissfeldt for the reported bug, the test program and a
proposed fix.
Diffstat (limited to 'lib/perl5db.pl')
| -rw-r--r-- | lib/perl5db.pl | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/lib/perl5db.pl b/lib/perl5db.pl index 7e7194ee95..0d240ae7c1 100644 --- a/lib/perl5db.pl +++ b/lib/perl5db.pl @@ -528,7 +528,7 @@ BEGIN { # Debugger for Perl 5.00x; perl5db.pl patch level: use vars qw($VERSION $header); -$VERSION = '1.49'; +$VERSION = '1.49_01'; $header = "perl5db.pl version $VERSION"; @@ -3319,6 +3319,9 @@ B<h q>, B<h R> or B<h o> to get additional info. EOP # Set the DB::eval context appropriately. + # At program termination disable any user actions. + $DB::action = undef; + $DB::package = 'main'; $DB::usercontext = DB::_calc_usercontext($DB::package); } ## end elsif ($package eq 'DB::fake') |