Merge branch 'hotfix/v6.0.6'

Author: keiranmraine

perl/lib/Bio/Brass.pm

@@ -1,7 +1,7 @@
 package Bio::Brass;
 
 ########## LICENCE ##########
-# Copyright (c) 2014-2017 Genome Research Ltd.
+# Copyright (c) 2014-2018 Genome Research Ltd.
 #
 # Author: Cancer Genome Project <[email protected]>
 #
@@ -46,7 +46,7 @@ our @EXPORT = qw(find_breakpoints find_dusty_vertices
 		 is_dusty get_isolated_bp_alignment get_isolated_bp_surrounding_region
 		 $VERSION);
 
-our $VERSION = '6.0.5';
+our $VERSION = '6.0.6';
 
 =head1 NAME
 

perl/lib/Bio/Brass/Merge.pm

@@ -1,7 +1,7 @@
 package Bio::Brass::Merge;
 
 ########## LICENCE ##########
-# Copyright (c) 2014-2017 Genome Research Ltd.
+# Copyright (c) 2014-2018 Genome Research Ltd.
 #
 # Author: Cancer Genome Project <[email protected]>
 #
@@ -156,7 +156,7 @@ sub filter_overlaps {
     push @{$best{$have_counts}{$count_reads}}, $key;
   }
   my $most_samples = (sort {$a<=>$b} keys %best)[-1];
-  my $most_reads = (sort {$a<=>$b} keys $best{$most_samples})[-1];
+  my $most_reads = (sort {$a<=>$b} keys %{$best{$most_samples}})[-1];
   my $best_key = shift @{$best{$most_samples}{$most_reads}};
   return $overlaps->{$best_key};
 }