$ERRORS.="unknown database(s)" if
@{$options{databases}} and
$ERRORS.="unknown database(s)" if
@{$options{databases}} and
- grep {$_ !~ /^(?:ncbi|genecard|harvester|ensembl)$/i} @{$options{databases}};
+ grep {$_ !~ /^(?:ncbi|genecard|harvester|ensembl|uniprot)$/i} @{$options{databases}};
if (not length $options{results}) {
$ERRORS.="results directory not specified";
if (not length $options{results}) {
$ERRORS.="results directory not specified";
pod2usage($ERRORS) if length $ERRORS;
if (not @{$options{databases}}) {
pod2usage($ERRORS) if length $ERRORS;
if (not @{$options{databases}}) {
- $options{databases} = [qw(ncbi genecard harvester ensembl)]
+ $options{databases} = [qw(ncbi genecard harvester ensembl uniprot)]
}
$DEBUG = $options{debug};
}
$DEBUG = $options{debug};