todo modules.t Test:Harness on Windows

fails there with "Free to wrong pool 155c2d0 not 880131005df0b161"

Author: Reini Urban

t/modules.t

@@ -345,6 +345,9 @@ sub is_todo {
 
   # ---------------------------------------
   if ($Config{useithreads}) {
+    if ($^O eq 'MSWin32') { foreach(qw(
+      Test::Harness
+    )) { return 'MSWin32 with threads' if $_ eq $module; }}
     if ($] >= 5.008008 and $] < 5.008009) { foreach(qw(
       Test::Tester
     )) { return '5.8.8 with threads' if $_ eq $module; }}