[Bio] / FigKernelPackages / gjoseqlib.pm Repository:
ViewVC logotype

Diff of /FigKernelPackages/gjoseqlib.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.12, Mon Feb 11 20:37:27 2008 UTC revision 1.13, Tue Feb 12 20:08:01 2008 UTC
# Line 275  Line 275 
275  sub read_fasta  sub read_fasta
276  {  {
277      my @seqs = map { $_->[2] =~ tr/ \n\r\t//d; $_ }      my @seqs = map { $_->[2] =~ tr/ \n\r\t//d; $_ }
278                 map { /^(\S+)(\s+([^\n]*\S)?\s*)?\n(.+)$/s ? [ $1, $3 || '', $4 ] : () }                 map { /^(\S+)([ \t]+([^\n]*\S)?\s*)?\n(.+)$/s ? [ $1, $3 || '', $4 ] : () }
279                 split /^>\s*/m, slurp( @_ );                 split /^>\s*/m, slurp( @_ );
280      wantarray() ? @seqs : \@seqs;      wantarray() ? @seqs : \@seqs;
281  }  }

Legend:
Removed from v.1.12  
changed lines
  Added in v.1.13

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3