2 use Config qw(%Config);
8 # This test relies on the implementation detail that the fork() emulation
9 # uses the negative value of the thread id as a pseudo process id.
10 if ($Config{ccflags} =~ /PERL_IMPLICIT_SYS/) {
15 ok(-$$, Win32::GetCurrentThreadId());
18 # here we just want to see something.
19 ok(Win32::GetCurrentThreadId() > 0);