| 53 |
|
"", $self, |
| 54 |
|
\&Arch_End,$self); |
| 55 |
|
$self->{Arch}=1; |
| 56 |
< |
push @{$self->{ARCHBLOCK}}, $Arch; |
| 56 |
> |
push @{$self->{ARCHBLOCK}}, $self->{Arch}; |
| 57 |
|
|
| 58 |
|
} |
| 59 |
|
|
| 82 |
|
$name=~tr[A-Z][a-z]; |
| 83 |
|
$self->{tool}->name($name); |
| 84 |
|
$self->{tool}->version($version); |
| 85 |
– |
$self->{tool}->url($file); |
| 85 |
|
$self->{switch}->filetoparse($file); |
| 86 |
|
$self->{toolfound}=1; |
| 87 |
|
$self->{switch}->parse("setup"); |
| 273 |
|
$self->{currentenvtext}=""; |
| 274 |
|
$self->{EnvContext}=$$hashref{'name'}; |
| 275 |
|
undef $self->{Envvalue}; |
| 276 |
< |
if ( exists $$hahsref{'type'} ) { |
| 277 |
< |
$self->{tool}->type($$hashref{'name'},$$hahsref{'type'}); |
| 276 |
> |
if ( exists $$hashref{'type'} ) { |
| 277 |
> |
$$hashref{'type'}=~tr[A-Z][a-z]; |
| 278 |
> |
$self->{tool}->type($$hashref{'name'},$$hashref{'type'}); |
| 279 |
|
} |
| 280 |
|
if ( exists $$hashref{'value'}) { |
| 281 |
|
$self->{Envvalue}=$$hashref{'value'}; |
| 308 |
|
|
| 309 |
|
if ( $self->{Arch} ) { |
| 310 |
|
if ( ! defined $self->{EnvContext} ) { |
| 311 |
< |
$self->parseerror("</\$name> without an opening context"); |
| 311 |
> |
$self->{switch}->parseerror("</$name> without an opening context"); |
| 312 |
|
} |
| 313 |
|
# - set the help text |
| 314 |
|
$self->featuretext($self->{EnvContext},$self->{currentenvtext}); |
