Commit 4a7840c8 authored by Sebastien Moretti's avatar Sebastien Moretti
Browse files

Simplify runExonerate

parent 91221674
......@@ -1095,7 +1095,7 @@ sub runExonerate{
print "\tNo exon-intron structure found for $whichGI with $fasta_header\n" if ( %$posBOJ eq 0 );
}
#Remove temp files from exonerate and query sequence for exonerate
# Remove temp files from exonerate and query sequence for exonerate
unlink("$cache/$date.$order.fas", "$cache/$date.$order.exon");# if ($tmp == 0);
......@@ -1111,7 +1111,7 @@ sub testPositions{
%positions = (%positions, '0' => $currentTarget);
my @clefs = sort({$a <=> $b} keys(%positions));
foreach (@clefs) {
print {*STDERR} "$_\t$positions{$_}\n" if ( $debug && $_>0 );
print "$_\t$positions{$_}\n" if ( $debug && $_>0 );
}
my @cles = sort({$a <=> $b} keys(%$best_pos));
......@@ -1138,8 +1138,8 @@ sub testBOJ{
if (%positBOJ ne 0){
%positBOJ = (%positBOJ, '0' => $currentTarget);
my @clefs = sort({$a <=> $b} keys(%positBOJ));
while(my ($x,$y) =each(%positBOJ) ){
print {*STDERR} "pos:$x -> $y\n" if ( $x>0 );
while(my ($x, $y) =each(%positBOJ) ){
print "pos:$x -> $y\n" if ( $debug && $x>0 );
}
my @cles = sort({$a <=> $b} keys(%$bestBOJ));
......
Supports Markdown
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