debugging search function in NClists.pm

[biopieces.git] / code_perl / Maasha / NClist.pm

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.
         {