| 52 |
|
my $config=$top."/".$area->configurationdir(); |
| 53 |
|
|
| 54 |
|
my $cache=$area->cache(); |
| 55 |
< |
if ( defined $cache ) { |
| 56 |
< |
$self->{urlhandler}=URL::URLhandler->new($cache); |
| 57 |
< |
} |
| 55 |
> |
if ( defined $cache ) { |
| 56 |
> |
$self->{urlhandler}=URL::URLhandler->new($cache); |
| 57 |
> |
} |
| 58 |
|
$self->{toolfiledir}="$top/.SCRAM/ToolFiles"; |
| 59 |
|
$self->{datastore}=$top."/.SCRAM/".$self->{arch}; |
| 60 |
|
#$self->{datastore}=$area->archdir(); |
| 67 |
|
# do we have toolfile dir and no admin? if so maybe its an old |
| 68 |
|
# area and we can attempt to get something from the filenames |
| 69 |
|
if ( -d $self->{datastore} ) { |
| 70 |
< |
my $dh=FileHandle->new(); |
| 70 |
> |
my $dh=DirHandle->new(); |
| 71 |
|
opendir $dh, $self->{datastore}; |
| 72 |
|
my @files=grep /.*_.*/, readdir $dh; |
| 73 |
|
undef $dh; |
| 231 |
|
return undef, if ( ! defined $version ); |
| 232 |
|
} |
| 233 |
|
my ($tool,$rv)=$self->_toolobject($product,$version); |
| 234 |
+ |
if ( $rv != 0 ) { |
| 235 |
+ |
delete $self->{tools}{$product}{$version}; |
| 236 |
+ |
} |
| 237 |
|
return ( $rv==0?$tool:undef ); # only return if already set up |
| 238 |
|
} |
| 239 |
|
|
| 348 |
|
my $rv=0; |
| 349 |
|
|
| 350 |
|
if ( ! exists $self->{tools}{$product}{$version} ) { |
| 351 |
< |
$self->verbose("$product $version being Intitialised"); |
| 351 |
> |
$self->verbose("$product $version being Initialised"); |
| 352 |
|
$self->{tools}{$product}{$version}=BuildSystem::Tool->new(); |
| 353 |
|
my $file=$self->_toolfile($product,$version); |
| 354 |
|
if ( -f $file ) { # restore it from disk |
