From eece9ddf71bd3494f393dab2c1329ff4469d2e7b Mon Sep 17 00:00:00 2001 From: Chris Fields Date: Thu, 10 May 2012 15:55:35 -0500 Subject: [PATCH] change \W+ tp \s+, allows gaps (per Tim White) --- Bio/SeqIO/tab.pm | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/Bio/SeqIO/tab.pm b/Bio/SeqIO/tab.pm index c775d61d2..a11c86bc2 100644 --- a/Bio/SeqIO/tab.pm +++ b/Bio/SeqIO/tab.pm @@ -69,15 +69,15 @@ of the Bioperl mailing lists. Your participation is much appreciated. bioperl-l@bioperl.org - General discussion http://bioperl.org/wiki/Mailing_lists - About the mailing lists -=head2 Support +=head2 Support Please direct usage questions or support issues to the mailing list: I -rather than to the module maintainer directly. Many experienced and -reponsive experts will be able look at the problem and quickly -address it. Please include a thorough description of the problem +rather than to the module maintainer directly. Many experienced and +reponsive experts will be able look at the problem and quickly +address it. Please include a thorough description of the problem with code and data examples if at all possible. =head2 Reporting Bugs @@ -130,7 +130,7 @@ sub next_seq{ return unless defined $nextline; if ($nextline =~ /^([^\t]*)\t(.*)/) { my ($id, $seq)=($1, uc($2)); - $seq =~ s/\W//g; + $seq =~ s/\s+//g; return Bio::Seq->new(-display_id=> $id, -seq => $seq); } else { $self->throw("Can't parse tabbed sequence entry:'$nextline' around line $."); @@ -156,7 +156,7 @@ sub write_seq { } $self->_print($_->display_id(), "\t",$_->seq, "\n") or return; } - + $self->flush if $self->_flush_on_write && defined $self->_fh; return 1; } -- 2.11.4.GIT