[Bio] / Sprout / GenomeSaplingLoader.pm Repository:
ViewVC logotype

Diff of /Sprout/GenomeSaplingLoader.pm

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

revision 1.8, Wed Dec 16 01:45:19 2009 UTC revision 1.9, Thu Mar 25 16:20:40 2010 UTC
# Line 349  Line 349 
349          # Now we loop through the DNA chunks.          # Now we loop through the DNA chunks.
350          my $loc = 1;          my $loc = 1;
351          my $ordinal = 0;          my $ordinal = 0;
352          while ($loc < $length) {          while ($loc <= $length) {
353              # Get this segment's true length.              # Get this segment's true length.
354              my $trueLength = Tracer::Min($length - $loc, $segmentLength);              my $trueLength = Tracer::Min($length + 1 - $loc, $segmentLength);
355              # Compute the index of this segment's last base pair.              # Compute the index of this segment's last base pair.
356              my $endPoint = $loc + $trueLength - 1;              my $endPoint = $loc + $trueLength - 1;
357              # Get the DNA.              # Get the DNA.

Legend:
Removed from v.1.8  
changed lines
  Added in v.1.9

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3