Skip to content
Snippets Groups Projects
Commit 6291d3b5 authored by Ian Longden's avatar Ian Longden
Browse files

change of format for RGD

parent 0d6990f7
No related branches found
No related tags found
No related merge requests found
......@@ -69,8 +69,8 @@ sub run {
if($linearr[2] ne "NAME"){
warn ("NAME is not the third element in the header\n");
}
if($linearr[14] ne "GENBANK_NUCLEOTIDE"){
warn ("GENBANK_NUCLEOTIDE is not the fourteenth element in the header\n");
if($linearr[16] ne "GENBANK_NUCLEOTIDE"){
die ("GENBANK_NUCLEOTIDE is not the seventeenth element in the header but ".$linearr[16]." is.\\n");
}
my $count= 0;
......
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