diff options
| author | Nicholas Clark <nick@ccl4.org> | 2008-03-13 12:47:51 +0000 |
|---|---|---|
| committer | Steve Hay <SteveHay@planit.com> | 2008-03-19 17:34:22 +0000 |
| commit | c762d24b2c953a47d439fb0fc6f1b9966169fe00 (patch) | |
| tree | 4b49046c85e8b603cd9b27049caeadd7504f36ab /ext/Win32 | |
| parent | 8b53a00d11adaeca27316b0edca0d3a5a4e9ef27 (diff) | |
| download | perl-c762d24b2c953a47d439fb0fc6f1b9966169fe00.tar.gz | |
Re: Smoke [5.11.0] 33500 FAIL(F) MSWin32 WinXP/.Net SP2 (x86/2 cpu)
Message-ID: <20080313124751.GX79799@plum.flirble.org>
Fixes test failures introduced by #33480 in non-fork()-enabled builds.
p4raw-id: //depot/perl@33543
Diffstat (limited to 'ext/Win32')
| -rw-r--r-- | ext/Win32/t/GetCurrentThreadId.t | 9 |
1 files changed, 4 insertions, 5 deletions
diff --git a/ext/Win32/t/GetCurrentThreadId.t b/ext/Win32/t/GetCurrentThreadId.t index 230431c7cf..2e261bc8a7 100644 --- a/ext/Win32/t/GetCurrentThreadId.t +++ b/ext/Win32/t/GetCurrentThreadId.t @@ -5,14 +5,13 @@ use Win32; plan tests => 1; -if (my $pid = fork) { - waitpid($pid, 0); - exit 0; -} - # This test relies on the implementation detail that the fork() emulation # uses the negative value of the thread id as a pseudo process id. if ($Config{ccflags} =~ /PERL_IMPLICIT_SYS/) { + if (my $pid = fork) { + waitpid($pid, 0); + exit 0; + } ok(-$$, Win32::GetCurrentThreadId()); } else { # here we just want to see something. |