exception in DESTROY in global destruction is “swallowed” confusingly

[FGasper]

Module: core

Description

perl -Mstrict -w -e'package Foo; sub DESTROY { die "nono" }; package main; our $wut = bless [], "Foo"'

gives:

(in cleanup) (in cleanup)  at -e line 1 during global destruction.

Expected behavior
Ideally nono should print to STDERR. At the very minimum, though, it seems confusing that (in cleanup) shows twice and makes it look like something confused perl.

Perl configuration
5.30.0, 5.26.3

[atoomic]

Note that in perl5.22.4 the output is different

> perl5.22.4 -Mstrict -w -e'package Foo; sub DESTROY { die "nono" }; package main; our $wut = bless [], "Foo"'

	(in cleanup) nono at -e line 1 during global destruction.

[atoomic]

The behavior was changed in v5.25.3 by 8c86f02

[atoomic]

Here is a suggestion to restore the previous behavior only during global destruction

diff --git a/pp_ctl.c b/pp_ctl.c
index 5a66e267a7..ffb0506f47 100644
--- a/pp_ctl.c
+++ b/pp_ctl.c
@@ -1654,7 +1654,11 @@ Perl_die_unwind(pTHX_ SV *msv)
     if (in_eval) {
        I32 cxix;

-        exceptsv = sv_2mortal(SvREFCNT_inc_simple_NN(exceptsv));
+        if (PL_phase == PERL_PHASE_DESTRUCT) {
+            exceptsv = sv_mortalcopy(exceptsv);
+        } else {
+            exceptsv = sv_2mortal(SvREFCNT_inc_simple_NN(exceptsv));
+        }

        /*
         * Historically, perl used to set ERRSV ($@) early in the die