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

coke at svn.parrot.org coke at svn.parrot.org
Thu Jul 9 23:59:17 UTC 2009


Author: coke
Date: Thu Jul  9 23:59:15 2009
New Revision: 39966
URL: https://trac.parrot.org/parrot/changeset/39966

Log:
When running c-like tests, don't re-invent configuration.

Patch courtesy doughera++ (TT #822)

Modified:
   trunk/lib/Parrot/Test.pm

Modified: trunk/lib/Parrot/Test.pm
==============================================================================
--- trunk/lib/Parrot/Test.pm	Thu Jul  9 17:41:21 2009	(r39965)
+++ trunk/lib/Parrot/Test.pm	Thu Jul  9 23:59:15 2009	(r39966)
@@ -959,22 +959,13 @@
             {
                 my $cfg = File::Spec->join( 'src', "parrot_config$PConfig{o}" );
                 my $iculibs = $PConfig{has_icu} ? $PConfig{icu_shared} : q{};
-                my $libparrot =
-                    $PConfig{parrot_is_shared}
-                      ? ("$PConfig{rpath_blib} "
-                        . (($^O =~ m/MSWin32/ and $PConfig{cc} =~ /\bcl\b/)
-                          ? ""
-                          : "-L$PConfig{blib_dir} "))
-                        . ($^O =~ m/MSWin32/
-                          ? $PConfig{libparrot_linkflags}
-                          : "-lparrot")
-                      : File::Spec->join(
-                          @PConfig{qw/build_dir blib_dir libparrot_static/},
-                      );
                 my $cmd =
-                      "$PConfig{link} $PConfig{linkflags} $PConfig{ld_debug} "
-                    . "$obj_f $cfg $PConfig{ld_out}$exe_f "
-                    . "$libparrot $iculibs $PConfig{libs}";
+                      "$PConfig{link} "
+                    . "$PConfig{ld_out}$exe_f "
+                    . "$obj_f $cfg "
+		    . "$PConfig{libparrot_linkflags} "
+		    . "$PConfig{linkflags} $PConfig{ld_debug} "
+                    . "$iculibs $PConfig{libs}";
                 my $exit_code = run_command(
                     $cmd,
                     'STDOUT' => $build_f,


More information about the parrot-commits mailing list