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

Diff of /FigKernelPackages/gjoalignandtree.pm

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

revision 1.5, Mon Nov 8 20:26:00 2010 UTC revision 1.6, Thu Nov 11 06:34:10 2010 UTC
# Line 345  Line 345 
345    
346  sub extract_with_psiblast  sub extract_with_psiblast
347  {  {
348      my ( $profile, $seqs, $opts ) = @_;      my ( $seqs, $profile, $opts ) = @_;
349    
350      $opts && ref $opts eq 'HASH' or $opts = {};      $opts && ref $opts eq 'HASH' or $opts = {};
351    
# Line 356  Line 356 
356      my $min_ident     = $opts->{ min_ident }    ||  0.15;      my $min_ident     = $opts->{ min_ident }    ||  0.15;
357      my $min_pos       = $opts->{ min_positive } ||  0.20;      my $min_pos       = $opts->{ min_positive } ||  0.20;
358    
359      my $blast = blastpgp( $profile, $seqs, $opts );      my $blast = blastpgp( $seqs, $profile, $opts );
360      $blast && @$blast or return ();      $blast && @$blast or return ();
361    
362      my ( $qid, $qdef, $qlen, $qhits ) = @{ $blast->[0] };      my ( $qid, $qdef, $qlen, $qhits ) = @{ $blast->[0] };

Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3