From: martinahansen <martinahansen@74ccb610-7750-0410-82ae-013aeee3265d>
Date: Wed, 3 Mar 2010 12:31:51 +0000 (+0000)
Subject: fixed bug in list_deflate
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=2a565766982abe6a6c3271e0a6d6e23db4c37df8;p=biopieces.git

fixed bug in list_deflate

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

diff --git a/code_perl/Maasha/Matrix.pm b/code_perl/Maasha/Matrix.pm
index 9ff8b97..62f532e 100644
--- a/code_perl/Maasha/Matrix.pm
+++ b/code_perl/Maasha/Matrix.pm
@@ -975,11 +975,11 @@ sub list_deflate
 
     $bin_size = int( scalar @{ $list } / $new_size );
 
-    for ( $i = 0; $i < @{ $list } - $bin_size + 1; $i += $bin_size ) {
+    for ( $i = 0; $i < @{ $list } - $bin_size; $i += $bin_size ) {
         push @new_list, Maasha::Calc::mean( [ @{ $list }[ $i .. $i + $bin_size ] ] );
     }
 
-    # Maasha::Common::error( sprintf( "List size != new size: %d != %d" ), scalar @new_list, $new_size ) if scalar @new_list != $new_size;
+    # Maasha::Common::error( sprintf( "List size != new size: %d != %d" ), scalar @new_list, $new_size ) if scalar @new_list != $new_size; # FIXME - I want this check!
 
     @{ $list } = @new_list;
 }