[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.45, Thu Oct 11 18:59:14 2007 UTC revision 1.46, Sat Oct 20 19:44:10 2007 UTC
# Line 1955  Line 1955 
1955      my $sims     = {};      my $sims     = {};
1956      foreach my $x (`cat $newGdir/similarities`)      foreach my $x (`cat $newGdir/similarities`)
1957      {      {
1958          chop; $x;          chomp $x;
1959          if ($x =~ /^(\S+)/)          if ($x =~ /^(\S+)/)
1960          {          {
1961              push(@{$sims->{$1}},bless([split(/\t/,$x)],'Sim'));              push(@{$sims->{$1}},bless([split(/\t/,$x)],'Sim'));

Legend:
Removed from v.1.45  
changed lines
  Added in v.1.46

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3