todo fixes

git-svn-id: http://biopieces.googlecode.com/svn/trunk@824 74ccb610-7750-0410-82ae-013aeee3265d

diff --git a/code_perl/Maasha/BGB/Track.pm b/code_perl/Maasha/BGB/Track.pm
index 1dfb4dfc6d943ca69c2dbe3b6eecfad340ace390..ae60c8be2eb5a73e6e4f04b20c991edb739e7c01 100644 (file)
--- 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 cd52a68450f9e54f8992eff930262abdabbbe72d..d9b2824359a9312ad8f6f198dba00c46c0ffa674 100644 (file)
--- 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;