From 7d728cebb16d1376e31c974efcb5b46c19cc8406 Mon Sep 17 00:00:00 2001 From: Dmitry Karasik Date: Mon, 29 Aug 2016 10:51:34 +0200 Subject: [PATCH] refs #190: unquoted multiline FT entries may start with empty line --- Bio/SeqIO/embl.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Bio/SeqIO/embl.pm b/Bio/SeqIO/embl.pm index 5fc81c54a..612f8e72d 100644 --- a/Bio/SeqIO/embl.pm +++ b/Bio/SeqIO/embl.pm @@ -1362,7 +1362,7 @@ sub _read_FTHelper_EMBL { my $data = $qual[$i]; my ( $qualifier, $value ); - unless (( $qualifier, $value ) = ($data =~ m{^/([^=]+)(?:=\s*(.+))?})) { + unless (( $qualifier, $value ) = ($data =~ m{^/([^=]+)(?:=\s*(.*))?})) { if ( defined $last_unquoted_qualifier ) { # handle case of unquoted multiline - read up everything until the next qualifier do { -- 2.11.4.GIT