From 2b187411270241cf3982655d309621728d060859 Mon Sep 17 00:00:00 2001 From: Jacques Dainat Date: Tue, 26 Mar 2024 22:14:43 +0100 Subject: [PATCH] Fix 445 buggit add lib/AGAT/OmniscientI.pm Few gene in output due to a remaining last that quit early in a loop. remove useless print --- lib/AGAT/OmniscientI.pm | 5 ----- 1 file changed, 5 deletions(-) diff --git a/lib/AGAT/OmniscientI.pm b/lib/AGAT/OmniscientI.pm index 3b81e951..4a6f68e5 100644 --- a/lib/AGAT/OmniscientI.pm +++ b/lib/AGAT/OmniscientI.pm @@ -1731,18 +1731,14 @@ sub _check_l2_linked_to_l3{ #check if we have the tag foreach my $l3_feature (@{$hash_omniscient->{'level3'}{$tag_l3}{$id_l2}}){ - print "fefe ".$l3_feature->gff_string()."\n"; if($l3_feature->has_tag($tag) ) { - print "has_tag $tag\n"; # case where it's linked by comon_tag attribute if (exists_keys($common_tag_in_l1,( $tag, lc($l3_feature->_tag_value($tag)) ) ) ){ - print "exists_keys\n"; if($#{$common_tag_in_l1->{$tag}{lc($l3_feature->_tag_value($tag))}} == 0){ my $id = $common_tag_in_l1->{$tag}{lc($l3_feature->_tag_value($tag))}[0]->{'id'}; my $ptag = $common_tag_in_l1->{$tag}{lc($l3_feature->_tag_value($tag))}[0]->{'ptag'}; $has_l1_feature = $hash_omniscient->{'level1'}{$ptag}{$id}; $id_l2_to_replace = $l3_feature->_tag_value('Parent'); - print "goes into it !!!! $id_l2_to_replace \n"; last; } else{ @@ -1827,7 +1823,6 @@ sub _check_l2_linked_to_l3{ push(@{$hash_omniscient->{"level2"}{lc($l2_feature->primary_tag)}{lc($l1_ID)}}, $l2_feature); } dual_print($log, "L3 had a L1 feature but no L2 feature. Corrected by creating the intermediate L2 feature:\n".$l2_feature->gff_string()."\nUsing this feature template:\n".$hash_omniscient->{"level3"}{$tag_l3}{$id_l2}[0]->gff_string()."\n", $verbose); - last }