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

Diff of /FigKernelPackages/P2Pupdate.pm

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

revision 1.43, Sun Apr 17 15:29:47 2005 UTC revision 1.44, Mon Apr 18 17:45:40 2005 UTC
# Line 469  Line 469 
469              {              {
470                  $peg = $1;                  $peg = $1;
471                  @seq = ();                  @seq = ();
472                  while (defined($line = <IN>) && ($line !~ /^[>\/]/) && ($line !~ /^\/\//))                  $line = <IN>;
473                    while ($line && ($line !~ /^[>\/]/) && ($line !~ /^\/\//))
474                  {                  {
475                      push(@seq,$line);                      push(@seq,$line);
476                      $line = <IN>;                      $line = <IN>;
# Line 665  Line 666 
666          {          {
667              $peg = $1;              $peg = $1;
668              @seq = ();              @seq = ();
669              while (defined($line = <IN>) && ($line !~ /^[>\/]/) && ($line !~ /^\/\//))              $line = <IN>;
670                while ($line && ($line !~ /^[>\/]/) && ($line !~ /^\/\//))
671              {              {
672                  push(@seq,$line);                  push(@seq,$line);
673                  $line = <IN>;                  $line = <IN>;

Legend:
Removed from v.1.43  
changed lines
  Added in v.1.44

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3