Commit 98358e8d authored by Andy Yates's avatar Andy Yates
Browse files

Fix for parsing files from Ken @ CSHL. ORIGIN was used in another context...

Fix for parsing files from Ken @ CSHL. ORIGIN was used in another context apart from notifying the start of the sequence in a genbank a.thaliana file
parent c2f96695
......@@ -223,7 +223,7 @@ sub create_xrefs {
$description =~ s/\s+/ /g;
$description = substr($description, 0, 255) if (length($description) > 255);
my ($seq) = $_ =~ /ORIGIN\s+(.+)/s; # /s allows . to match newline
my ($seq) = $_ =~ /^\s*ORIGIN\s+(.+)/ms; # /s allows . to match newline
my @seq_lines = split /\n/, $seq;
my $parsed_seq = "";
foreach my $x (@seq_lines) {
......
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