Probably starting with the changes in change #33897,

t/run/exit.t has been failing on Win32.  Update the skipping
mechanism to do more that check for the definition of
POSIX::WIFEXITED.
p4raw-link: @33897 on //depot/perl: 72bfe1b2b35945ea3c95d9b94ae2908121292236

p4raw-id: //depot/perl@33979

diff --git a/t/run/exit.t b/t/run/exit.t
index 8302ae8..2b2b99d 100644 (file)
--- a/t/run/exit.t
+++ b/t/run/exit.t
@@ -37,7 +37,8 @@ is( ${^CHILD_ERROR_NATIVE}, $native_success,  'Normal exit ${^CHILD_ERROR_NATIVE
 if ($^O ne 'VMS') {
   my $posix_ok = eval { require POSIX; };
   my $wait_macros_ok = defined &POSIX::WIFEXITED;
-
+  eval { POSIX::WIFEXITED() };
+  $wait_macros_ok = 0 if $@;
   $exit = run('exit 42');
   is( $exit >> 8, 42,             'Non-zero exit' );
   is( $exit, $?,                  'Non-zero exit $?' );