From 2fbb1a4b1c3c1dd2aa52853a75363c3da0805b43 Mon Sep 17 00:00:00 2001 From: Shaojun Xie Date: Sat, 31 Mar 2018 23:12:29 -0400 Subject: [PATCH] Bug fix: lib/Meth/OverRegion.pm --- lib/Meth/OverRegion.pm | 1 + 1 file changed, 1 insertion(+) diff --git a/lib/Meth/OverRegion.pm b/lib/Meth/OverRegion.pm index c4d261f..6f641fa 100644 --- 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"){