Ticket #822: tt822-libparrot.patch

File tt822-libparrot.patch, 1.5 KB (added by doughera, 5 years ago)
  • Parrot/Test.pm

    old new  
    959959            { 
    960960                my $cfg = File::Spec->join( 'src', "parrot_config$PConfig{o}" ); 
    961961                my $iculibs = $PConfig{has_icu} ? $PConfig{icu_shared} : q{}; 
    962                 my $libparrot = 
    963                     $PConfig{parrot_is_shared} 
    964                       ? ("$PConfig{rpath_blib} " 
    965                         . (($^O =~ m/MSWin32/ and $PConfig{cc} =~ /\bcl\b/) 
    966                           ? "" 
    967                           : "-L$PConfig{blib_dir} ")) 
    968                         . ($^O =~ m/MSWin32/ 
    969                           ? $PConfig{libparrot_linkflags} 
    970                           : "-lparrot") 
    971                       : File::Spec->join( 
    972                           @PConfig{qw/build_dir blib_dir libparrot_static/}, 
    973                       ); 
    974962                my $cmd = 
    975                       "$PConfig{link} $PConfig{linkflags} $PConfig{ld_debug} " 
    976                     . "$obj_f $cfg $PConfig{ld_out}$exe_f " 
    977                     . "$libparrot $iculibs $PConfig{libs}"; 
     963                      "$PConfig{link} " 
     964                    . "$PConfig{ld_out}$exe_f " 
     965                    . "$obj_f $cfg " 
     966                    . "$PConfig{libparrot_linkflags} " 
     967                    . "$PConfig{linkflags} $PConfig{ld_debug} " 
     968                    . "$iculibs $PConfig{libs}"; 
    978969                my $exit_code = run_command( 
    979970                    $cmd, 
    980971                    'STDOUT' => $build_f,