chasing wiggle bug

[biopieces.git] / code_perl / Maasha / BGB / Track.pm

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;