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

Diff of /Sprout/Sprout.pm

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

revision 1.32, Wed Sep 14 13:24:14 2005 UTC revision 1.33, Wed Sep 14 13:26:27 2005 UTC
# Line 625  Line 625 
625          # Compute the initial base pair.          # Compute the initial base pair.
626          my $start = ($dir eq "+" ? $beg : $beg + $len - 1);          my $start = ($dir eq "+" ? $beg : $beg + $len - 1);
627          # Add the specifier to the list.          # Add the specifier to the list.
628          push @retVal, "${contigID}_$beg$dir$len";          push @retVal, "${contigID}_$start$dir$len";
629      }      }
630      # Return the list in the format indicated by the context.      # Return the list in the format indicated by the context.
631      return (wantarray ? @retVal : join(',', @retVal));      return (wantarray ? @retVal : join(',', @retVal));

Legend:
Removed from v.1.32  
changed lines
  Added in v.1.33

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3