Bug fix: lib/Meth/OverRegion.pm

xie186 · Apr 1, 2018 · 2fbb1a4 · 2fbb1a4
1 parent 94ccf2b
commit 2fbb1a4
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/lib/Meth/OverRegion.pm b/lib/Meth/OverRegion.pm
@@ -91,6 +91,7 @@ sub get_meth_info{
             my $iter = $tabix->query("$chr:$stt_flank-$end_flank");
             my ($tot_c_num, $tot_t_num) = (0, 0);
             #print "$chr:$stt_flank-$end_flank\t$iter\n";
+            next if !$iter; 
             while ( my $line = $iter->next) {
 		my ($chr, $pos, $C_strand, $c_num, $t_num, $tem_context, $seq) = split(/\t/, $line);
                 if($context eq $tem_context || $context eq "CXX"){