| # | Line 95 | Line 95 | sub tool { | |
|---|---|---|
| 95 | ||
| 96 | sub toolsearcher { | |
| 97 | my $self=shift; | |
| 98 | + | |
| 99 | if ( @_ ) { | |
| 100 | my $searcher=shift; | |
| 101 | if ( ! defined $searcher ) { | |
| # | Line 316 | Line 317 | sub _searchtools { | |
| 317 | my $area; | |
| 318 | my $rtool; | |
| 319 | my $it=$searcher->newiterator(); | |
| 320 | < | |
| 320 | > | |
| 321 | while ( ! $it->last() ) { | |
| 322 | $area=$it->next(); | |
| 323 | if ( defined $area ) { | |
| # | Line 506 | Line 507 | sub Environment_Start { | |
| 507 | my $self=shift; | |
| 508 | my $name=shift; | |
| 509 | my $hashref=shift; | |
| 510 | < | |
| 510 | > | |
| 511 | $self->{switch}->checktag($name, $hashref, 'name'); | |
| 512 | if ( $self->{Arch} ) { | |
| 513 | my $val=undef; | |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |