strip newlines in input before codon lookup

1 files changed, 1 insertions, 0 deletions

diff --git a/varscan2codon.pl b/varscan2codon.pl
index e0eaaf8..8cd36c6 100755
--- a/varscan2codon.pl
+++ b/varscan2codon.pl
@@ -33,6 +33,7 @@ my $variants = IO::File->new($ARGV[2])
     or die "Couldn't open $ARGV[1] for reading: $!\n";
 my $name = 'unnamed-change';
 while (<$variants>) {
+    chomp;
     my ($name_maybe, $ref, $pos, $orig_nt, $new_nt) = split /,/;
     $name = $name_maybe if length($name_maybe) > 0;