[perl #52000] use PL_exit_flags in the test so it works non-threaded

diff --git a/lib/ExtUtils/t/Embed.t b/lib/ExtUtils/t/Embed.t
index f47d036..861c7b8 100644 (file)
--- a/lib/ExtUtils/t/Embed.t
+++ b/lib/ExtUtils/t/Embed.t
@@ -184,7 +184,7 @@ int main(int argc, char **argv, char **env) {
     my_puts("ok 2");
 
     perl_construct(my_perl);
-    my_perl->Iexit_flags |= PERL_EXIT_WARN;
+    PL_exit_flags |= PERL_EXIT_WARN;
 
     my_puts("ok 3");