| # | Line 352 | Line 352 | sub Environment_Start { | |
|---|---|---|
| 352 | # check other installed copies of the tool | |
| 353 | my ($rv,@params)= | |
| 354 | $self->_toolparamcopy($self->{tool},$$hashref{'name'}); | |
| 355 | < | if ( $rv ) { |
| 356 | < | $self->{Envvalue}=$params[0]; # assume single val parameter! |
| 355 | > | if ( $rv && ($#params == 0)) { #dont use multivalued params! |
| 356 | > | $self->{Envvalue}=$params[0]; # single val parameter |
| 357 | } | |
| 358 | elsif ( defined $ENV{$$hashref{'name'}} ) { | |
| 359 | # check the environment | |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |