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

Diff of /FigKernelPackages/P2P.pm

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

revision 1.28, Thu Feb 10 16:55:46 2005 UTC revision 1.29, Wed Feb 23 22:07:14 2005 UTC
# Line 442  Line 442 
442          my $dup = 0;          my $dup = 0;
443          foreach my $ann (@sorted)          foreach my $ann (@sorted)
444          {          {
445              my $txt = join("\n", @$ann);              my $txt = join("\n", @$ann[0..3]);
446              #              #
447              # Drop the trailing \n if there is one; we  will add it back when we print and              # Drop the trailing \n if there is one; we  will add it back when we print and
448              # want to ensure the file format remains sane.              # want to ensure the file format remains sane.

Legend:
Removed from v.1.28  
changed lines
  Added in v.1.29

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3