From: martinahansen <martinahansen@74ccb610-7750-0410-82ae-013aeee3265d>
Date: Thu, 4 Mar 2010 10:08:56 +0000 (+0000)
Subject: chasing wiggle bug
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=ba4e59056d5ef48c1ff104ee49a3ee8846082249;p=biopieces.git

chasing wiggle bug

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

diff --git a/code_perl/Maasha/BGB/Track.pm b/code_perl/Maasha/BGB/Track.pm
index bd3c171..6e2d086 100644
--- a/code_perl/Maasha/BGB/Track.pm
+++ b/code_perl/Maasha/BGB/Track.pm
@@ -234,6 +234,7 @@ sub track_wiggle
     $vals    = Maasha::BGB::Wiggle::wiggle_normalize( $vals, $cookie->{ 'IMG_WIDTH' } );
 
     $max     = Maasha::Calc::list_max( $vals );
+    $max   ||= 1;
 
     $factor = $height / $max;
 
diff --git a/code_perl/Maasha/BGB/Wiggle.pm b/code_perl/Maasha/BGB/Wiggle.pm
index 9bf8afa..2ea9fbf 100644
--- a/code_perl/Maasha/BGB/Wiggle.pm
+++ b/code_perl/Maasha/BGB/Wiggle.pm
@@ -91,7 +91,7 @@ sub wiggle_encode
 sub wiggle_normalize
 {
     my ( $vals,   # Wiggle values
-         $size,   # Deflated list size
+         $size,   # New list size
        ) = @_;
 
     # Returns a list
@@ -160,6 +160,8 @@ sub wiggle_retrieve
 
     @vals = unpack( "S*", $bin );
 
+    map { push @vals, 0 } ( scalar @vals .. $end - $beg  );  # Padding
+
     return wantarray ? @vals : \@vals;
 }