Merge branch 'hotfix/v2.0.7'

cancerit · Jun 16, 2016 · 4cb8028 · 4cb8028
2 parents 7422718 + 75bb0f9
commit 4cb8028
Show file tree

Hide file tree

Showing 4 changed files with 4 additions and 4 deletions.
diff --git a/perl/bin/pindel_germ_bed.pl b/perl/bin/pindel_germ_bed.pl
@@ -71,7 +71,7 @@ BEGIN
 }
 #Fake line as first position of first contig unless we have had at least one bed entry
 if($has_entry == 0){
-  my $first_contig = (sort keys $vcf->get_header_line(key=>'contig')->[0])[0];
+  my $first_contig = (sort keys %{$vcf->get_header_line(key=>'contig')->[0]})[0];
   print $o_fh (join ("\t",$first_contig,0,1),"\n") or die "Failed to write: $!";
 }
 

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.6';
+our $VERSION = '2.0.7';
 our @EXPORT = qw($VERSION);
 
 1;
diff --git a/perl/lib/Sanger/CGP/Pindel/OutputGen/CombinedRecordGenerator.pm b/perl/lib/Sanger/CGP/Pindel/OutputGen/CombinedRecordGenerator.pm
@@ -381,8 +381,8 @@ sub _count_sam_event_reads{
 	my %pos_reads = %{$ins_reads[1]};
 	my %neg_reads = %{$ins_reads[0]};
 
-	@pos_reads{keys %{$del_reads[1]}} = values{%{$del_reads[1]}};
-	@neg_reads{keys %{$del_reads[0]}} = values{%{$del_reads[0]}};
+	@pos_reads{keys %{$del_reads[1]}} = values %{$del_reads[1]};
+	@neg_reads{keys %{$del_reads[0]}} = values %{$del_reads[0]};
 
 	## return the reads to the outside world, we need to merge these with the reads discovered from Pindel to get accurate counts...
 	return (\%pos_reads,\%neg_reads);