Commit a6c39a15 authored by Sebastien Carrere's avatar Sebastien Carrere

Bug encore sur le orthomcl.out defini mais vide

parent 4e35eefb
......@@ -69,9 +69,10 @@ sub __SetOptionnalParameters
$rh_analysis_params->{'title'} = 'Orthomcl analysis - ' . $DATE unless (defined $rh_analysis_params->{'title'});
$rh_analysis_params->{'date'} = $DATE;
delete $rh_analysis_params->{'orthomcl'}->{'outfile'} if (! -e $rh_analysis_params->{'orthomcl'}->{'outfile'} or -z $rh_analysis_params->{'orthomcl'}->{'outfile'});
if (defined $rh_analysis_params->{'orthomcl'}->{'outfile'})
{
if (defined $rh_analysis_params->{'orthomcl'}->{'outfile'} )
{
if (!defined $rh_analysis_params->{'orthomcl'}->{'version'})
{
my $orthomcl_outfile = $rh_analysis_params->{'orthomcl'}->{'outfile'};
......
......@@ -240,7 +240,7 @@ sub ParseOrthomclResults
{
my ($outfile, $version) = @_;
&Log("INFO - ParseOrthomclResults");
&Log("INFO - ParseOrthomclResults $outfile");
my %h_orthomcl = ();
my $fh_in = &GetStreamIn($outfile);
......
Markdown is supported
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