Something I was trying to troubleshoot on a system of ours, with the non-packaged version that we had but should still be an issue since the code for this script is the same, but Perl deprecated a feature around Perl 5.11 or 5.12 used in this script. They removed the implicit @_ functionality for "split" so it doesn't work the way it's used in splitting up $infile1.
The main result of this is 1.contig.noblast.fasta(2.contig.fasta) and 2.contig.noblast.fasta(3.contig.fasta) both contain the same full contents of 1.contig.fasta, regardless of how well the full set of contigs blasted.
A change in code to make it not use the same type of splitting is how we fixed it to work with both older and newer versions of Perl:
foreach my $line(<$infile1>) { push @fileArray, $line; } foreach my $element (@fileArray){ my @currentArray = split "\t", $element; my $mykey = $currentArray[0]; $myh{$mykey}=1; }
Something I was trying to troubleshoot on a system of ours, with the non-packaged version that we had but should still be an issue since the code for this script is the same, but Perl deprecated a feature around Perl 5.11 or 5.12 used in this script. They removed the implicit @_ functionality for "split" so it doesn't work the way it's used in splitting up $infile1.
The main result of this is 1.contig.noblast.fasta(2.contig.fasta) and 2.contig.noblast.fasta(3.contig.fasta) both contain the same full contents of 1.contig.fasta, regardless of how well the full set of contigs blasted.
A change in code to make it not use the same type of splitting is how we fixed it to work with both older and newer versions of Perl:
foreach my $line(<$infile1>) { push @fileArray, $line; } foreach my $element (@fileArray){ my @currentArray = split "\t", $element; my $mykey = $currentArray[0]; $myh{$mykey}=1; }