include insertions of size 1

aparton · Sep 3, 2017 · 832fa86 · 832fa86
1 parent a7fe285
commit 832fa86
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/modules/Bio/EnsEMBL/VEP/Pipeline/DumpVEP/Dumper/Variation.pm b/modules/Bio/EnsEMBL/VEP/Pipeline/DumpVEP/Dumper/Variation.pm
@@ -283,7 +283,7 @@ sub freqs_from_vcf {
       my @vcf_alts = @{$parser->get_alternatives};
 
       # scan from from pos to inferred end
-      for my $start(grep {$by_pos{$_}} ($vcf_pos..(($vcf_pos + length($vcf_ref)) - 1))) {
+      for my $start(grep {$by_pos{$_}} ($vcf_pos..($vcf_pos + length($vcf_ref)))) {
 
         foreach my $v(@{$by_pos{$start}}) {
           $DB::single = 1 if $v->{variation_name} eq 'TMP_ESP_1_179086420_179086420';