Change 33979 by [EMAIL PROTECTED] on 2008/06/01 17:32:27
Probably startirng 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.
Affected files ...
... //depot/perl/t/run/exit.t#16 edit
Differences ...
==== //depot/perl/t/run/exit.t#16 (text) ====
Index: perl/t/run/exit.t
--- perl/t/run/exit.t#15~25772~ 2005-10-16 12:10:56.000000000 -0700
+++ perl/t/run/exit.t 2008-06-01 10:32:27.000000000 -0700
@@ -37,7 +37,8 @@
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 $?' );
End of Patch.
