X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=code_perl%2FMaasha%2FNClist.pm;h=b81b2db17eab850f58fde07931bf80770158cd49;hb=ed3c03bdc4cb11591f8efc08c3d6f679766ed22c;hp=8385202426e1867905dfbb3563d542cbd527ce06;hpb=81bcc06cf18da72e536b56784c574eae3a14ea04;p=biopieces.git

diff --git a/code_perl/Maasha/NClist.pm b/code_perl/Maasha/NClist.pm
index 8385202..b81b2db 100644
--- 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.
         {