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

Diff of /FigKernelPackages/ProtSims.pm

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

revision 1.2, Tue Aug 18 15:16:21 2009 UTC revision 1.3, Wed Aug 19 16:12:10 2009 UTC
# Line 126  Line 126 
126          unlink $tmpQ;          unlink $tmpQ;
127      }      }
128    
129      my %lnQ   = map { $_->[0] => length($_->[2]) } @q;      my %lnQ   = map { $_->[0] => length($_->[2]) } @$q;
130      my %lnDB  = map { $_->[0] => length($_->[2]) } @db;      my %lnDB  = map { $_->[0] => length($_->[2]) } @$db;
131      @sims = map { push(@$_,$lnQ{$_->[0]},$lnDB{$_->[1]}); bless($_,'Sim') } @sims;      @sims = map { push(@$_,$lnQ{$_->[0]},$lnDB{$_->[1]}); bless($_,'Sim') } @sims;
132    
133      if ($qF      eq "/tmp/query.$$")   { unlink $qF  }      if ($qF      eq "/tmp/query.$$")   { unlink $qF  }
134      if ($dbF     eq "/tmp/db.$$")      { unlink $dbF }      if ($dbF     eq "/tmp/db.$$")      { unlink $dbF }
135      return @sims;      return sort { ($a->id1 cmp $b->id1) or ($b->bsc <=> $a->bsc) or ($a->id2 cmp $b->id2) } @sims;
136  }  }
137    
138  1;  1;

Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3