Change 33543 by [EMAIL PROTECTED] on 2008/03/19 17:34:22
Subject: Re: Smoke [5.11.0] 33500 FAIL(F) MSWin32 WinXP/.Net SP2 (x86/2
cpu)
From: Nicholas Clark <[EMAIL PROTECTED]>
Date: Thu, 13 Mar 2008 12:47:51 +0000
Message-ID: <[EMAIL PROTECTED]>
Fixes test failures introduced by #33480 in non-fork()-enabled builds.
Affected files ...
... //depot/perl/ext/Win32/t/GetCurrentThreadId.t#3 edit
Differences ...
==== //depot/perl/ext/Win32/t/GetCurrentThreadId.t#3 (text) ====
Index: perl/ext/Win32/t/GetCurrentThreadId.t
--- perl/ext/Win32/t/GetCurrentThreadId.t#2~33480~ 2008-03-11
12:45:55.000000000 -0700
+++ perl/ext/Win32/t/GetCurrentThreadId.t 2008-03-19 10:34:22.000000000
-0700
@@ -5,14 +5,13 @@
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.
End of Patch.
