2 use Config qw(%Config);
6 unless ($Config{ccflags} =~ /PERL_IMPLICIT_SYS/) {
7 print "1..0 # Skip: Test requires fork emulation\n";
18 # This test relies on the implementation detail that the fork() emulation
19 # uses the negative value of the thread id as a pseudo process id.
20 ok(-$$, Win32::GetCurrentThreadId());