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 bd3c1718ae1dcef37339e7abd12eaab76a20b88e..6e2d0867844cbeea9188806a7a6ca72f7dc9b030 100644 (file)
--- 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 9bf8afa68e1552239f1dd499402ee6ea6a8a7d85..2ea9fbf7a0fbd77a9a2f918e6767334edf100ce8 100644 (file)
--- 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;
 }