added missing files

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

diff --git a/code_perl/Maasha/NClist.pm b/code_perl/Maasha/NClist.pm
index 8385202426e1867905dfbb3563d542cbd527ce06..9c3a71e7309d81134b73f48b46e84d0d622afc18 100644 (file)
--- a/code_perl/Maasha/NClist.pm
+++ b/code_perl/Maasha/NClist.pm
@@ -40,7 +40,7 @@ use strict;
 use Maasha::Filesys;
 use Data::Dumper;
 use Time::HiRes;
-use Json::XS;
+use JSON::XS;
 
 use vars qw( @ISA @EXPORT );
 
@@ -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.
         {