From: Don Armstrong <don@donarmstrong.com>
Date: Fri, 25 Jan 2008 03:01:42 +0000 (+0000)
Subject: handle \r properly
X-Git-Url: https://git.donarmstrong.com/?p=function2gene.git;a=commitdiff_plain;h=ad648ff8ab8c675513d4ae80be9cd73ee0c64551

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 de4915b..b6810e2 100755
--- 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;