[Bio] / Kmers2 / build_data_directory.pl Repository:
ViewVC logotype

Diff of /Kmers2/build_data_directory.pl

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

revision 1.4, Tue Jul 16 15:40:25 2013 UTC revision 1.5, Mon Jul 22 20:00:15 2013 UTC
# Line 57  Line 57 
57      my %funcs;      my %funcs;
58      while (defined($_ = <ASSIGNMENTS>))      while (defined($_ = <ASSIGNMENTS>))
59      {      {
60          if ($_ =~ /^\S+\t(\S[^\#]*\S+)/)          if ($_ =~ /^\S+\t(\S.*\S+)/)
61          {          {
62              $funcs{$1}++;              my $stripped = &SeedUtils::strip_func($1);   #### CHECK THIS
63                $funcs{$stripped}++;
64          }          }
65      }      }
66      close(ASSIGNMENTS);      close(ASSIGNMENTS);
# Line 200  Line 201 
201          if ($_ =~ /^(\S+)\t(\S.*\S)/)          if ($_ =~ /^(\S+)\t(\S.*\S)/)
202          {          {
203              my $peg = $1;              my $peg = $1;
204              my $func = $2;              my $func = &SeedUtils::strip_func($2);
205              if ($to_fI->{$func})              if ($to_fI->{$func})
206              {              {
207                  $peg_to_fI->{$peg} = $to_fI->{$func};                  $peg_to_fI->{$peg} = $to_fI->{$func};

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

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3