From 1d3c913747759db8a5427941e854767d050592e1 Mon Sep 17 00:00:00 2001
From: martinahansen <martinahansen@74ccb610-7750-0410-82ae-013aeee3265d>
Date: Tue, 27 Apr 2010 06:46:10 +0000
Subject: [PATCH] fixed speed issue with track_ruler in BGB

git-svn-id: http://biopieces.googlecode.com/svn/trunk@950 74ccb610-7750-0410-82ae-013aeee3265d
---
 code_perl/Maasha/BGB/Track.pm | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/code_perl/Maasha/BGB/Track.pm b/code_perl/Maasha/BGB/Track.pm
index 15e2ba5..a21fa4e 100644
--- a/code_perl/Maasha/BGB/Track.pm
+++ b/code_perl/Maasha/BGB/Track.pm
@@ -116,8 +116,10 @@ sub track_ruler
         $step *= 5;
     }
 
-    for ( $i = $beg; $i < $end; $i++ ) {   # TODO: this loop is slow!
-        last if ( ( $i % $step ) == 0 );
+    $i = 0;
+
+    while ( $i <= $beg ) {
+        $i += $step;
     }
 
     while ( $i < $end )
-- 
2.39.2