Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

optimize line-ending trimming even more

  • Loading branch information...
commit 54bd7c85bbabd074105eb6a611b4b64e072e61f2 1 parent 7a87938
@rbuels rbuels authored
Showing with 1 addition and 5 deletions.
  1. +1 −5 lib/Bio/GFF3/LowLevel.pm
View
6 lib/Bio/GFF3/LowLevel.pm
@@ -95,9 +95,6 @@ Unescaping is performed according to the GFF3 specification.
sub gff3_parse_feature {
my ( $line ) = @_;
- chomp $line;
- $line =~ s/\r$//;
-
my @f = split /\t/, $line;
for( @f ) {
if( $_ eq '.' ) {
@@ -170,13 +167,12 @@ have additional C<source> and C<buildname> keys
sub gff3_parse_directive {
my ( $line ) = @_;
- $line =~ s/\r?\n$//;
-
my ( $name, $contents ) = $line =~ /^ \s* \#\# \s* (\S+) \s* (.*) $/x
or return;
my $parsed = { directive => $name };
if( length $contents ) {
+ $contents =~ s/\r?\n$//;
$parsed->{value} = $contents;
}
Please sign in to comment.
Something went wrong with that request. Please try again.