trim windows-style newlines in seq-len. Fixes #117

thackl · Mar 30, 2022 · 7053a8e · 7053a8e
1 parent 36a807e
commit 7053a8e
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/exec/seq-len b/exec/seq-len
@@ -28,7 +28,7 @@ my @r;
 my $seq_reg = 0;
 
 # fasta
-if ($first =~ /^>(\S+)(?:\s(.*))?/){
+if ($first =~ /^>(\S+)(?:\s([^\n\r]*))?/){ # .* captures \r in some cases
     @r = ($1, $2 // "", 0);
     while (<>) {
         tr/\r\n//d;             # chomp() fails on \r\n;