handle \r properly

git-svn-id: file:///srv/svn/function2gene/trunk@28 a0738b58-4706-0410-8799-fb830574a030

diff --git a/bin/function2gene b/bin/function2gene
index de4915bc4f95ecbdd9c564ffb7de88938658d4c0..b6810e2be8c8ed4eab05cedd73ca50b99e3d6719 100755 (executable)
--- a/bin/function2gene
+++ b/bin/function2gene
@@ -192,6 +192,7 @@ if (@{$options{keywords}}) {
               next if /^\s*[#;]/;
               next unless /\w+/;
               chomp;
+              s/\r$//;
               my ($keyword,$weight) = split /\t/, $_;
               $weight = 1 if not defined $weight;
               $state{keyword_weight}{$keyword} = $weight;