fix Embed.t failure on windows: PERL_SYS_TERM() is implemented

[perl5.git] / win32 / win32.c

diff --git a/win32/win32.c b/win32/win32.c
index f3281f3..c409203 100644 (file)
--- a/win32/win32.c
+++ b/win32/win32.c
@@ -4884,6 +4884,13 @@ Perl_win32_init(int *argcp, char ***argvp)
 }
 
 void
+Perl_win32_term(void)
+{
+    OP_REFCNT_TERM;
+    MALLOC_TERM;
+}
+
+void
 win32_get_child_IO(child_IO_table* ptbl)
 {
     ptbl->childStdIn   = GetStdHandle(STD_INPUT_HANDLE);