From 79cd9b6a313eb59a40e1e632267d84e9501418dc Mon Sep 17 00:00:00 2001
From: martinahansen <martinahansen@74ccb610-7750-0410-82ae-013aeee3265d>
Date: Wed, 16 Dec 2009 13:31:38 +0000
Subject: [PATCH] todo fixes

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

diff --git a/code_perl/Maasha/BGB/Track.pm b/code_perl/Maasha/BGB/Track.pm
index 1dfb4df..ae60c8b 100644
--- a/code_perl/Maasha/BGB/Track.pm
+++ b/code_perl/Maasha/BGB/Track.pm
@@ -363,7 +363,7 @@ sub track_feature_histogram
 
         $min_bucket = Maasha::Calc::min( $min_bucket, $bucket_beg );
 
-        for ( $i = $bucket_beg; $i <= $bucket_end; $i++ )
+        for ( $i = $bucket_beg; $i < $bucket_end; $i++ )
         {
             $buckets[ $i ] += $block->{ 'COUNT' };
 
diff --git a/code_perl/Maasha/KISS.pm b/code_perl/Maasha/KISS.pm
index cd52a68..d9b2824 100644
--- a/code_perl/Maasha/KISS.pm
+++ b/code_perl/Maasha/KISS.pm
@@ -550,7 +550,11 @@ sub kiss_align_enc
 
     my ( $i, $s, $q, @align );
 
-    Maasha::Common::error( "Sequence lengths don't match" ) if length ${ $s_seq } != length ${ $q_seq };
+    # Maasha::Common::error( "Sequence lengths don't match" ) if length ${ $s_seq } != length ${ $q_seq };
+
+    if ( length ${ $s_seq } != length ${ $q_seq } ) {   # for unknown reasons this situation may occur - TODO
+        return wantarray ? () : [];
+    }
 
     $offset ||= 0;
 
-- 
2.39.2