Use explict Perl file open syntax
Torsten Seemann
8 years ago
1 changed file(s) with
1 addition(s)
and
1 deletion(s)
.
Raw diff
Collapse all
Expand all
+1
-1
bin/barrnap
less
more
131
131
}
132
132
if ($incseq) {
133
133
print "##FASTA\n";
134
open FASTA, $fasta;
134
open FASTA, '<', $fasta;
135
135
print while (<FASTA>); # `cat $fasta`
136
136
}
137
137