a regex in STDOUT destructor coredumped because regex pad already

freed

p4raw-id: //depot/perl@23230

1 files changed, 3 insertions, 3 deletions

diff --git a/perl.c b/perl.c
index 1040163fed..88f854770a 100644
--- a/perl.c
+++ b/perl.c
@@ -487,6 +487,9 @@ perl_destruct(pTHXx)
 #endif
 #endif /* !PERL_MICRO */
 
+    /* reset so print() ends up where we expect */
+    setdefout(Nullgv);
+
 #ifdef USE_ITHREADS
     /* the syntax tree is shared between clones
      * so op_free(PL_main_root) only ReREFCNT_dec's
@@ -628,9 +631,6 @@ perl_destruct(pTHXx)
     PL_dbargs = Nullav;
     PL_debstash = Nullhv;
 
-    /* reset so print() ends up where we expect */
-    setdefout(Nullgv);
-
     SvREFCNT_dec(PL_argvout_stack);
     PL_argvout_stack = Nullav;