I think #29060 / #29073 missed this

p4raw-id: //depot/perl@29424

diff --git a/win32/win32.c b/win32/win32.c
index 31a54a9..a7c409f 100644 (file)
--- a/win32/win32.c
+++ b/win32/win32.c
@@ -4902,8 +4902,10 @@ Perl_win32_init(int *argcp, char ***argvp)
 void
 Perl_win32_term(void)
 {
+    dTHX;
     HINTS_REFCNT_TERM;
     OP_REFCNT_TERM;
+    PERLIO_TERM;
     MALLOC_TERM;
 }
 

diff --git a/win32/wince.c b/win32/wince.c
index 52d9507..846a33b 100644 (file)
--- a/win32/wince.c
+++ b/win32/wince.c
@@ -2660,8 +2660,10 @@ Perl_win32_init(int *argcp, char ***argvp)
 DllExport void
 Perl_win32_term(void)
 {
+    dTHX;
     HINTS_REFCNT_TERM;
     OP_REFCNT_TERM;
+    PERLIO_TERM;
     MALLOC_TERM;
 }