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

Diff of /FigKernelPackages/FIGV.pm

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

revision 1.20, Mon Mar 12 21:57:11 2007 UTC revision 1.21, Wed Mar 14 20:49:33 2007 UTC
# Line 1010  Line 1010 
1010          my $x;          my $x;
1011          while (defined($x = <FASTA>))          while (defined($x = <FASTA>))
1012          {          {
1013                chomp $x;
1014              if ($x =~ />?(\S+)[^\n]*\n(.*)/s)              if ($x =~ />?(\S+)[^\n]*\n(.*)/s)
1015              {              {
1016                  my $peg = $1;                  my $peg = $1;

Legend:
Removed from v.1.20  
changed lines
  Added in v.1.21

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3