Change #29424 may well be correct in itself, but currently doesn't

work when perl is built with PERL_IMPLICIT_SYS because PERLIO_TERM
uses PerlMemShared_free() which, in that case, involves the perlhost
that has already been freed itself by perl_free(), which is called
before PERL_SYS_TERM().

The order of perl_destruct(), perl_free(), PERL_SYS_TERM() cannot
be changed (it is advertised in perlembed for a start), so just
revert #29424 and the appropriate parts of #29442 for now.

Perhaps PL_perlio_fd_refcnt needs allocating differently, or else
the perlhost needs freeing later (after PerlIO)?

p4raw-id: //depot/perl@29451

1 files changed, 3 insertions, 13 deletions

diff --git a/win32/perllib.c b/win32/perllib.c
index d1afa163c8..1e4ba09001 100644
--- a/win32/perllib.c
+++ b/win32/perllib.c
@@ -248,28 +248,18 @@ RunPerl(int argc, char **argv, char **env)
 	exitstatus = perl_run(my_perl);
 #endif
     }
-    
+
     perl_destruct(my_perl);
-#ifdef USE_ITHREADS
-    if (new_perl) {
-	PERL_SET_THX(new_perl);
-	perl_destruct(new_perl);
-	PERL_SET_THX(my_perl);
-    }
-#endif
-    
-    PERL_SYS_TERM();
-    
     perl_free(my_perl);
-    
 #ifdef USE_ITHREADS
     if (new_perl) {
 	PERL_SET_THX(new_perl);
+	perl_destruct(new_perl);
 	perl_free(new_perl);
     }
 #endif
 
-    
+    PERL_SYS_TERM();
 
     return (exitstatus);
 }