[BACK]Return to libtool CVS log [TXT][DIR] Up to [local] / src / usr.bin / libtool

Diff for /src/usr.bin/libtool/libtool between version 1.33 and 1.34

version 1.33, 2012/07/09 23:13:29 version 1.34, 2012/07/10 09:51:32
Line 21 
Line 21 
 use feature qw(say switch state);  use feature qw(say switch state);
 use Cwd qw(getcwd);  use Cwd qw(getcwd);
 use File::Glob ':glob';  use File::Glob ':glob';
 use File::Path;  
   
 use LT::Trace;  use LT::Trace;
 use LT::Exec;  use LT::Exec;
Line 51 
Line 50 
         ltdir => $ltdir,          ltdir => $ltdir,
         version => $version,          version => $version,
         objdir => $ltdir,          objdir => $ltdir,
           build_old_libs => 'yes',
         pic_flags => join(' ', @picflags),          pic_flags => join(' ', @picflags),
     };      };
     ($self->{gnu_arch} = $self->{machine_arch}) =~ s/amd64/x86_64/;      ($self->{gnu_arch} = $self->{machine_arch}) =~ s/amd64/x86_64/;
   
     if (grep { $_ eq $self->{machine_arch} } qw(m88k vax)) {      if (grep { $_ eq $self->{machine_arch} } qw(m88k vax)) {
           $self->{build_libtool_libs} = 'yes';
         $self->{noshared} = 1;          $self->{noshared} = 1;
     } else {      } else {
           $self->{build_libtool_libs} = 'no';
         $self->{noshared} = 0;          $self->{noshared} = 0;
     }      }
   
Line 67 
Line 69 
 sub dump  sub dump
 {  {
         my $self = shift;          my $self = shift;
         while (my ($key, $value) = each(%$self)) {          for my $key (sort keys %$self) {
                 print "$key=$value\n";                  say "$key=$self->{$key}";
         }          }
 }  }
   
Legend:
Removed from v.1.33  
changed lines
  Added in v.1.34