This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Clearing DB::action at the end is no longer needed
authorE. Choroba <choroba@matfyz.cz>
Mon, 27 Jul 2020 09:32:51 +0000 (11:32 +0200)
committerKarl Williamson <khw@cpan.org>
Thu, 30 Jul 2020 21:52:38 +0000 (15:52 -0600)
as it's cleared right after it's been run.

lib/perl5db.pl

index e04a0e1..af3b972 100644 (file)
@@ -3347,10 +3347,6 @@ use B<o> I<inhibit_exit> to avoid stopping after program termination,
 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')