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

Diff of /FigKernelPackages/ContigMD5.pm

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

revision 1.1, Wed Mar 7 20:39:20 2007 UTC revision 1.3, Tue May 1 16:50:24 2007 UTC
# Line 28  Line 28 
28      my($self, $txt) = @_;      my($self, $txt) = @_;
29    
30      $txt =~ s/^>[^\n]*\n//m;      $txt =~ s/^>[^\n]*\n//m;
31      $txt = s/\s*//g;      $txt =~ s/\s*//g;
32      $self->{digest}->add(lc($txt));      $self->{digest}->add(lc($txt));
33  }  }
34    
35  sub checksum  sub checksum
36  {  {
37      my($self) = @_;      my($self) = @_;
38      return $self->{digest}->hexdigest;      return $self->{digest}->clone()->hexdigest;
39  }  }
40  1;  1;

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

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3