.

diff --git a/tests/tr/build-script.pl b/tests/tr/build-script.pl
index ff5c559..ded2f8c 100755 (executable)
--- a/tests/tr/build-script.pl
+++ b/tests/tr/build-script.pl
@@ -25,7 +25,7 @@ while (<>)
   {
     next if (/^\s*#/);
 
-    chop;
+    chomp;
     my ($test_name, $input, $flags, $s1, $s2, $expected, $e_ret_code);
     my $prog =
        '($test_name, $input, $flags, $s1, $s2, $expected, $e_ret_code) = '