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 9ff8b97be40394c4b084ab2d2783aeb3c22d505c..62f532e26e8e64b11bce7757d325fa900cd6bd59 100644 (file)
--- 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;
 }