Last time I saw that the fix was

   --- Tk\MMutil.pm.orig   2009-10-07 03:08:28.781250000 -0700
   +++ Tk\MMutil.pm        2009-10-07 03:14:37.390625000 -0700
   @@ -583,6 +583,7 @@
        }
       push(@opt,'DEFINE' => $define, 'INC' => $i);
      }
   +  for(@{$att{LIBS}}){ $_=":nosearch $_"};
     WriteMakefile(@opt, %att);
    }
[download]

http://win32.perl.org/wiki/index.php?title=Tk-804.028_501