| 97 |
|
} |
| 98 |
|
|
| 99 |
|
sub toolsetup { |
| 100 |
< |
my $self=shift; |
| 101 |
< |
my $name=shift; |
| 102 |
< |
|
| 103 |
< |
AddDir::adddir($self->{datastore}); |
| 100 |
> |
my $self=shift; |
| 101 |
> |
my $name=shift; |
| 102 |
> |
|
| 103 |
> |
AddDir::adddir($self->{datastore}); |
| 104 |
|
$name=~tr[A-Z][a-z]; |
| 105 |
|
my $rv=0; |
| 106 |
|
# -- get version |
| 134 |
|
$filename=$self->_download($url, $name, $version); |
| 135 |
|
|
| 136 |
|
# -- the tool setup |
| 137 |
< |
print "\n----------- Setting Up $name $version ----------------------------------\n"; |
| 137 |
> |
print "\n----------- Setting Up $name $version -----------------------------------------------\n\n"; |
| 138 |
|
require BuildSystem::ToolDoc; |
| 139 |
|
my $doc=BuildSystem::ToolDoc->new(); |
| 140 |
|
$doc->tool($tool); |
| 164 |
|
$self->error("Unable to find $name $version in $url"); |
| 165 |
|
} |
| 166 |
|
undef $doc; |
| 167 |
– |
|
| 167 |
|
return $rv; |
| 168 |
|
} |
| 169 |
|
|
| 368 |
|
$self->{tools}{$product}{$version}->version($version); |
| 369 |
|
$self->verbose("Tool $product $version needs set up"); |
| 370 |
|
} |
| 372 |
– |
# push @{$self->{toollist}}, [$product, $version]; |
| 371 |
|
} |
| 372 |
|
return ($self->{tools}{$product}{$version}, $rv); |
| 373 |
|
} |
