difforig perl-5.10.0/ext/Win32/t

2007-12-22  Reini Urban <rurban@x-ray.at>

diff -ub  perl-5.10.0/ext/Win32/t/GetCurrentThreadId.t.orig
--- perl-5.10.0/ext/Win32/t/GetCurrentThreadId.t.orig	2007-12-18 10:47:07.000000000 +0000
+++ perl-5.10.0/ext/Win32/t/GetCurrentThreadId.t	2007-12-22 15:32:57.546875000 +0000
@@ -3,11 +3,6 @@
 use Test;
 use Win32;
 
-unless ($Config{ccflags} =~ /PERL_IMPLICIT_SYS/) {
-    print "1..0 # Skip: Test requires fork emulation\n";
-    exit 0;
-}
-
 plan tests => 1;
 
 if (my $pid = fork) {
@@ -17,4 +12,9 @@
 
 # This test relies on the implementation detail that the fork() emulation
 # uses the negative value of the thread id as a pseudo process id.
-ok(-$$, Win32::GetCurrentThreadId());
+if ($Config{ccflags} =~ /PERL_IMPLICIT_SYS/) {
+    ok(-$$, Win32::GetCurrentThreadId());
+} else {
+# here we just want to see something.
+    ok(Win32::GetCurrentThreadId() > 0);
+}