From: Steve Peters <steve@fisharerojo.org>
Date: Sun, 1 Jun 2008 17:32:27 +0000 (+0000)
Subject: Probably starting with the changes in change #33897,
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=ac0638ad0560c94bdd1b77078f2c536664a9f167;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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 $?' );