Skip to content
Snippets Groups Projects
Commit 0efe34de authored by Derek Wilson's avatar Derek Wilson
Browse files

Removed problematic (!defined $release_file) test.

parent 6f5d29bb
No related branches found
No related tags found
No related merge requests found
......@@ -23,7 +23,7 @@ sub run {
my $release_file = $ref_arg->{rel_file};
my $verbose = $ref_arg->{verbose};
if((!defined $source_id) or (!defined $species_id) or (!defined $files) or (!defined $release_file)){
if ((!defined $source_id) or (!defined $species_id) or (!defined $files)) {
croak "Need to pass source_id, species_id, files and rel_file as pairs";
}
$verbose |=0;
......
......@@ -23,7 +23,7 @@ sub run {
my $release_file = $ref_arg->{rel_file};
my $verbose = $ref_arg->{verbose};
if((!defined $source_id) or (!defined $species_id) or (!defined $files) or (!defined $release_file)){
if((!defined $source_id) or (!defined $species_id) or (!defined $files)) {
croak "Need to pass source_id, species_id, files and rel_file as pairs";
}
$verbose |=0;
......
......@@ -14,7 +14,7 @@ sub run {
my $release_file = $ref_arg->{rel_file};
my $verbose = $ref_arg->{verbose};
if((!defined $source_id) or (!defined $species_id) or (!defined $files) or (!defined $release_file)){
if((!defined $source_id) or (!defined $species_id) or (!defined $files)){
croak "Need to pass source_id, species_id, files and rel_file as pairs";
}
$verbose |=0;
......@@ -36,13 +36,13 @@ sub run {
while ( my $line = $file_io->getline() ) {
chomp $line;
my ($SPECIES,$gene_id, $acc, $family, $subfamily, $description) = split(",",$line);
my ($SPECIES, $gene_id, $acc, $family, $subfamily, $description) = split(",",$line);
my $full_description = $description."($family)" ;
if ($subfamily ne $family) { $full_description .= ", subfamily $subfamily" ;}
#$subfamily ~= /1-3-beta-D/1,3-beta-D/ ;
my $xref_id = $self->get_xref($acc,$source_id, $species_id);
my $xref_id = $self->get_xref($acc, $source_id, $species_id);
if(!defined($xref_id)){
$xref_id = $self->add_xref({ acc => $acc,
......
......@@ -17,7 +17,7 @@ sub run {
my $release_file = $ref_arg->{rel_file};
my $verbose = $ref_arg->{verbose};
if((!defined $source_id) or (!defined $species_id) or (!defined $files) or (!defined $release_file)){
if((!defined $source_id) or (!defined $species_id) or (!defined $files)){
croak "Need to pass source_id, species_id, files and rel_file as pairs";
}
$verbose |=0;
......
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment