debugging search function in NClists.pm

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

diff --git a/code_perl/Maasha/NClist.pm b/code_perl/Maasha/NClist.pm
index 8385202426e1867905dfbb3563d542cbd527ce06..b81b2db17eab850f58fde07931bf80770158cd49 100644 (file)
--- a/code_perl/Maasha/NClist.pm
+++ b/code_perl/Maasha/NClist.pm
@@ -288,7 +288,7 @@ sub nc_list_search
 
     foreach $feature ( @{ $nc_list } )
     {
-        push @features, $feature if grep /$regex/i, @{ $feature };
+        push @features, $feature if grep { $_ =~ /$regex/i if defined $_ } @{ $feature };
 
         if ( defined $feature->[ $index ] ) # sublist exists so recurse to this.
         {