diff options
| author | Reini Urban <rurban@x-ray.at> | 2009-08-04 13:12:24 +0200 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2009-08-04 13:12:24 +0200 |
| commit | d781deb6546425b0eb8ff14422b0c2fb4352a053 (patch) | |
| tree | 17e3dea1cc52d94a715d9cc68320ad1def5322d3 | |
| parent | c2615aa941885aad4d85c407467a748b3c01bdd1 (diff) | |
| download | perl-d781deb6546425b0eb8ff14422b0c2fb4352a053.tar.gz | |
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
...
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.
| -rw-r--r-- | t/run/exit.t | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/t/run/exit.t b/t/run/exit.t index 986afeaad4..b58dd45fee 100644 --- a/t/run/exit.t +++ b/t/run/exit.t @@ -57,7 +57,7 @@ is( ${^CHILD_ERROR_NATIVE}, $native_success, 'Normal exit ${^CHILD_ERROR_NATIVE 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' ); |