From: martinahansen <martinahansen@74ccb610-7750-0410-82ae-013aeee3265d>
Date: Sat, 6 Feb 2010 17:50:02 +0000 (+0000)
Subject: debugging search function in NClists.pm
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=ed3c03bdc4cb11591f8efc08c3d6f679766ed22c;p=biopieces.git

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