From ad648ff8ab8c675513d4ae80be9cd73ee0c64551 Mon Sep 17 00:00:00 2001 From: Don Armstrong Date: Fri, 25 Jan 2008 03:01:42 +0000 Subject: [PATCH] handle \r properly git-svn-id: file:///srv/svn/function2gene/trunk@28 a0738b58-4706-0410-8799-fb830574a030 --- bin/function2gene | 1 + 1 file changed, 1 insertion(+) 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; -- 2.39.2