release the global struct *after* we've finished using it

diff --git a/lib/ExtUtils/t/Embed.t b/lib/ExtUtils/t/Embed.t
index 269b20a..7a83c98 100644 (file)
--- a/lib/ExtUtils/t/Embed.t
+++ b/lib/ExtUtils/t/Embed.t
@@ -204,13 +204,13 @@ int main(int argc, char **argv, char **env) {
 
     perl_free(my_perl);
 
 
     perl_free(my_perl);
 

-#ifdef PERL_GLOBAL_STRUCT
-    free_global_struct(plvarsp);
-#endif /* PERL_GLOBAL_STRUCT */
-

     my_puts("ok 8");
 
     PERL_SYS_TERM();
 
     my_puts("ok 8");
 
     PERL_SYS_TERM();
 

+#ifdef PERL_GLOBAL_STRUCT
+    free_global_struct(plvarsp);
+#endif /* PERL_GLOBAL_STRUCT */
+

     return 0;
 }
     return 0;
 }

diff --git a/miniperlmain.c b/miniperlmain.c
index 7f63a34..61358f7 100644 (file)
--- a/miniperlmain.c
+++ b/miniperlmain.c
@@ -138,12 +138,12 @@ main(int argc, char **argv, char **env)
     environ = env;
 #endif
 
     environ = env;
 #endif
 

+    PERL_SYS_TERM();
+

 #ifdef PERL_GLOBAL_STRUCT
     free_global_struct(plvarsp);
 #endif /* PERL_GLOBAL_STRUCT */
 
 #ifdef PERL_GLOBAL_STRUCT
     free_global_struct(plvarsp);
 #endif /* PERL_GLOBAL_STRUCT */
 

-    PERL_SYS_TERM();
-

     exit(exitstatus);
     return exitstatus;
 }
     exit(exitstatus);
     return exitstatus;
 }