[med-svn] [roary] 01/03: Imported Upstream version 3.6.4+dfsg

[Sascha Steinbiss]

This is an automated email from the git hooks/post-receive script.

satta pushed a commit to branch master
in repository roary.

commit 322b69a1a6067adcaea5256ca291ddb3207df873
Author: Sascha Steinbiss <satta at debian.org>
Date:   Sun Jul 10 17:16:39 2016 +0000

    Imported Upstream version 3.6.4+dfsg
---
 .travis.yml                  | 2 +-
 README.md                    | 4 ++--
 dist.ini                     | 2 +-
 lib/Bio/Roary/SplitGroups.pm | 4 ++++
 4 files changed, 8 insertions(+), 4 deletions(-)

diff --git a/.travis.yml b/.travis.yml
index e7d60b1..d1070e2 100644
--- a/.travis.yml
+++ b/.travis.yml
@@ -17,9 +17,9 @@ cache:
   - build/mcl-14-137
   - build/fasttree
 perl:
-  - "5.10"
   - "5.14"
   - "5.20"
+  - "5.24"
 env:
   - PARALLEL_VERSION=20150522
   - PARALLEL_VERSION=20141022
diff --git a/README.md b/README.md
index 4d8d1a9..307bc49 100644
--- a/README.md
+++ b/README.md
@@ -87,10 +87,10 @@ bedtools cd-hit blast mcl GNUparallel prank mafft fasttree
 ```
 
 ## Ancient systems and versions of perl
-The code will not work with perl 5.8 or below (pre-modern perl). If your running a very old verison of Linux, your also in trouble.
+The code will not work with perl 5.8 or below (pre-modern perl). We no longer test against 5.10 (released 2007). If your running a very old verison of Linux, your also in trouble.
 
 #Versions of software we test against
-* Perl 5.10, 5.14, 5.16, 5.18, 5.20
+* Perl 5.14, 5.16, 5.20, 5.24
 * cdhit 4.6.1
 * ncbi blast+ 2.2.30
 * mcl 14-137
diff --git a/dist.ini b/dist.ini
index 4e4c931..e8144ae 100644
--- a/dist.ini
+++ b/dist.ini
@@ -1,5 +1,5 @@
 name    = Bio-Roary
-version = 3.6.3
+version = 3.6.4
 author  = Andrew J. Page <ap13 at sanger.ac.uk>
 license = GPL_3
 copyright_holder = Wellcome Trust Sanger Institute
diff --git a/lib/Bio/Roary/SplitGroups.pm b/lib/Bio/Roary/SplitGroups.pm
index 590a835..32d1609 100644
--- a/lib/Bio/Roary/SplitGroups.pm
+++ b/lib/Bio/Roary/SplitGroups.pm
@@ -308,6 +308,10 @@ sub _shared_cgn_score {
 		next unless(defined($input_group));
 		$total_shared++ if($cgn2->{$input_group});
 	}
+	if( (scalar @{ $cgn1 }) == 0)
+	{
+	  return 0;
+  }
 	my $score = $total_shared/scalar @{ $cgn1 };
 	return $score;
 }

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/debian-med/roary.git