From 70b5900a5ea0b4053defa02300f9a99fd849e196 Mon Sep 17 00:00:00 2001
From: martinahansen <martinahansen@74ccb610-7750-0410-82ae-013aeee3265d>
Date: Thu, 28 Jan 2010 08:35:50 +0000
Subject: [PATCH] repair on plot_karyogram

git-svn-id: http://biopieces.googlecode.com/svn/trunk@852 74ccb610-7750-0410-82ae-013aeee3265d
---
 code_perl/Maasha/Plot.pm | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/code_perl/Maasha/Plot.pm b/code_perl/Maasha/Plot.pm
index 906b7ac..4ac7159 100644
--- a/code_perl/Maasha/Plot.pm
+++ b/code_perl/Maasha/Plot.pm
@@ -542,6 +542,8 @@ sub find_cent
     push @nums, $acen->[ 1 ]->[ 1 ];
     push @nums, $acen->[ 1 ]->[ 2 ];
 
+
+    @nums = grep { defined $_ } @nums;   # FIXME
     @nums = sort { $a <=> $b } @nums;
 
     $cent = ( $nums[ 1 ] + $nums[ 2 ] ) / 2;
-- 
2.39.5