Merge branch 'hotfix/v2.0.8'

cancerit · Sep 8, 2016 · a750510 · a750510
2 parents 4cb8028 + bc57cd4
commit a750510
Show file tree

Hide file tree

Showing 3 changed files with 2 additions and 2 deletions.
diff --git a/perl/docs.tar.gz b/perl/docs.tar.gz
diff --git a/perl/lib/Sanger/CGP/Pindel.pm b/perl/lib/Sanger/CGP/Pindel.pm
@@ -26,7 +26,7 @@ use strict;
 use Const::Fast qw(const);
 
 use base 'Exporter';
-our $VERSION = '2.0.7';
+our $VERSION = '2.0.8';
 our @EXPORT = qw($VERSION);
 
 1;
diff --git a/perl/lib/Sanger/CGP/PindelPostProcessing/FilterRules.pm b/perl/lib/Sanger/CGP/PindelPostProcessing/FilterRules.pm
@@ -305,7 +305,7 @@ sub flag_009 {
 
   my $ret = eval{
     # as vcf POS for indels is the previous base pos is 0-based, but the new TABIX requires 1-based
-    my $iter = $main::VCF_IS_CODING_TABIX->query($CHROM,$POS+1,($POS+$MATCH));
+    my $iter = $main::VCF_IS_CODING_TABIX->query(sprintf '%s:%d-%d', $CHROM,$POS+1,($POS+$MATCH));
     return $FAIL if(!defined $iter); # no valid entries (chromosome not in index) so must FAIL
     while($iter->next){
       return $PASS;