[svn:parrot] r34981 - trunk/lib/Parrot

[rurban]

Author: rurban
Date: Mon Jan  5 04:34:51 2009
New Revision: 34981

Modified:
   trunk/lib/Parrot/Test.pm

Log:
Fix msvc warning in t/src/compiler.t:
  LINK : warning LNK4044: Nicht erkannte Option "Lblib\lib"; ignoriert
  And we don't want to use /LIBPATH:$PConfig{blib_dir} here, only for static.



Modified: trunk/lib/Parrot/Test.pm
==============================================================================
--- trunk/lib/Parrot/Test.pm    (original)
+++ trunk/lib/Parrot/Test.pm    Mon Jan  5 04:34:51 2009
@@ -960,7 +960,9 @@
                 my $iculibs = $PConfig{has_icu} ? $PConfig{icu_shared} : q{};
                 my $libparrot =
                     $PConfig{parrot_is_shared}
-                    ? "$PConfig{rpath_blib} -L$PConfig{blib_dir} "
+                    ? ("$PConfig{rpath_blib} " .
+                      ($^O =~ m/MSWin32/ and $PConfig{cc} eq 'cl'
+                         ? "" : "-L$PConfig{blib_dir} "))
                     . (
                       $^O =~ m/MSWin32/
                     ? $PConfig{libparrot_ldflags}