version 1.16, 2012/07/07 18:08:11 |
version 1.17, 2012/07/07 18:21:56 |
|
|
sub new |
sub new |
{ |
{ |
my $class = shift; |
my $class = shift; |
my $self = { |
bless { |
machine_arch => $Config{'ARCH'}, |
machine_arch => $Config{'ARCH'}, |
}; |
}, $class; |
bless $self, $class; |
|
return $self; |
|
} |
} |
|
|
package LT::Options; |
package LT::Options; |
|
|
notyet |
notyet |
); |
); |
|
|
#my $config = LT::OSConfig->new(); |
my $ltconfig = LT::OSConfig->new; |
my $ltconfig = LT::OSConfig->new(); |
|
my @no_shared_archs = qw(m88k vax); |
my @no_shared_archs = qw(m88k vax); |
(my $gnu_arch = $ltconfig->{'machine_arch'}) =~ s/amd64/x86_64/; |
(my $gnu_arch = $ltconfig->{'machine_arch'}) =~ s/amd64/x86_64/; |
my $cwd = getcwd(); |
my $cwd = getcwd(); |