[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.32, Wed Jun 13 20:40:48 2007 UTC revision 1.33, Tue Jun 26 20:29:33 2007 UTC
# Line 394  Line 394 
394              local $/ = "\n>";              local $/ = "\n>";
395              while (defined(my $x = <CONTIGS>))              while (defined(my $x = <CONTIGS>))
396              {              {
397                    chomp $x;
398                  if ($x =~ />?(\S+)[^\n]*\n(.*)/s)                  if ($x =~ />?(\S+)[^\n]*\n(.*)/s)
399                  {                  {
400                      my $id = $1;                      my $id = $1;
# Line 430  Line 431 
431              local $/ = "\n>";              local $/ = "\n>";
432              while (defined(my $x = <CONTIGS>))              while (defined(my $x = <CONTIGS>))
433              {              {
434                    chomp $x;
435                  if ($x =~ />?(\S+)[^\n]*\n(.*)/s)                  if ($x =~ />?(\S+)[^\n]*\n(.*)/s)
436                  {                  {
437                      my $id = $1;                      my $id = $1;
# Line 474  Line 476 
476          local $/ = "\n>";          local $/ = "\n>";
477          while (defined(my $x = <CONTIGS>))          while (defined(my $x = <CONTIGS>))
478          {          {
479                chomp $x;
480              if ($x =~ />?(\S+)[^\n]*\n(.*)/s)              if ($x =~ />?(\S+)[^\n]*\n(.*)/s)
481              {              {
482                  my $id = $1;                  my $id = $1;

Legend:
Removed from v.1.32  
changed lines
  Added in v.1.33

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3