WIFEXITED() cygwin regression

t/run/exit.t:58:    eval { POSIX::WIFEXITED() };
fails on the new cygwin-1.7 with
      5 [main] perl 3500 fork: child -1 - died waiting for longjmp
before initialization, retry 0, exit code 0xC0000005, errno 11
33394914 [main] perl 3500 fork: child -1 - died waiting for longjmp
before initialization, retry 0, exit code 0xC0000005, errno 11
68209672 [main] perl 3500 fork: child -1 - died waiting for longjmp
before initialization, retry 0, exit code 0xC0000005, errno 11
101617660 [main] perl 3500 fork: child -1 - died waiting for longjmp
before initialization, retry 0, exit code 0xC0000005, errno 11
133591832 [main] perl 3500 fork: child -1 - died waiting for longjmp
before initialization, retry 0, exit code 0xC0000005, errno 11
167437406 [main] perl 3500 fork: child -1 - died waiting for longjmp
before initialization, retry 0, exit code 0xC0000005, errno 11
201578831 [main] perl 3500 fork: child -1 - died waiting for longjmp
before initialization, retry 0, exit code 0xC0000005, errno 11
...
until I kill perl, because you must use an argument for WIFEXITED.
It didn't fail before, so I assume it's a cygwin regression, but it
must be fixed in the perl testsuite,
since an empty argument cries for trouble.
Use 0 or 1 as argument, ${^CHILD_ERROR_NATIVE} preferred.

diff -u t/run/exit.t.orig t/run/exit.t
--- t/run/exit.t.orig   2008-12-19 10:13:59.000000000 +0100
+++ t/run/exit.t        2009-08-03 20:36:42.937500000 +0200
@@ -55,7 +55,7 @@
 if (!$vms_exit_mode) {
   my $posix_ok = eval { require POSIX; };
   my $wait_macros_ok = defined &POSIX::WIFEXITED;
-  eval { POSIX::WIFEXITED() };
+  eval { POSIX::WIFEXITED(${^CHILD_ERROR_NATIVE}) };
   $wait_macros_ok = 0 if $@;
   $exit = run('exit 42');
   is( $exit >> 8, 42,             'Non-zero exit' );


-- 
Reini Urban
http://phpwiki.org/           http://murbreak.at/

• WIFEXITED() cygwin regression by Reini Urban
• Re: WIFEXITED() cygwin regression by Rafael Garcia-Suarez
• Re: WIFEXITED() cygwin regression by Reini Urban