From a121c139fd19de981a8393ea916de4bfdeda9cef Mon Sep 17 00:00:00 2001
From: Malte Petersen <mptrsen@uni-bonn.de>
Date: Mon, 23 Nov 2015 15:01:40 +0100
Subject: [PATCH] Fixed bug in orthograph2hamstrad that prevented summarized
 data to be converted

---
 ChangeLog              | 1 +
 orthograph2hamstrad.pl | 4 ++--
 2 files changed, 3 insertions(+), 2 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 8d67ac1..189ab66 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,6 +1,7 @@
 Changes since release 0.5.6
 ===========================
 
+* Fixed bug in orthograph2hamstrad.pl that prevented summarized data to be converted
 * Moved notification on reftaxon skipping to `verbose`, improved wording on said message
 * Alignment files for ortholog set now contain the reference OGS headers, not just database IDs
 
diff --git a/orthograph2hamstrad.pl b/orthograph2hamstrad.pl
index a9e8e49..f0b6a1e 100755
--- a/orthograph2hamstrad.pl
+++ b/orthograph2hamstrad.pl
@@ -45,8 +45,8 @@
 	next unless $f =~ /\.fa$/;
 	(my $basename = $f) =~ s/\.aa(\.summarized)?(\.mafft)?\.fa$//;
 
-	my $summarized = defined $1 ? '.' . $1 : '';
-	my $mafft      = defined $2 ? '.' . $2 : '';
+	my $summarized = defined $1 ? $1 : '';
+	my $mafft      = defined $2 ? $2 : '';
 	
 	my $aafile = catfile($aaind, $f);
 	my $ntfile = catfile($ntind, $basename . '.nt' . $summarized . $mafft . '.fa');