* tests/Coreutils.pm: Remove one of two adjacent "then"s in a comment.

diff --git a/ChangeLog b/ChangeLog
index 79b3ae48d01b4e60d5a0d2a867b289f20da6075e..27a565a43b9f46e8c954d6a9cc56c4b7766d781c 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -3,6 +3,8 @@
        * Makefile.maint (sc_the_the): New rule.
 
        * src/dd.c (skip): Remove one of two adjacent "the"s in a comment.
+       * tests/Coreutils.pm (run_tests): Remove one of two adjacent "then"s
+       in a comment.
 
 2006-07-07  Jim Meyering  <jim@meyering.net>
 

diff --git a/tests/Coreutils.pm b/tests/Coreutils.pm
index 6d3c4d2f2f9d6486d7941eada85a9b2825fc680c..1490fb1d3bb2fa02c599323cffd41b2eea0a3a9f 100644 (file)
--- a/tests/Coreutils.pm
+++ b/tests/Coreutils.pm
@@ -9,7 +9,7 @@ use FileHandle;
 use File::Compare qw(compare);
 
 @ISA = qw(Exporter);
-($VERSION = '$Revision: 1.3 $ ') =~ tr/[0-9].//cd;
+($VERSION = '$Revision: 1.4 $ ') =~ tr/[0-9].//cd;
 @EXPORT = qw (run_tests);
 
 my $debug = $ENV{DEBUG};
@@ -470,7 +470,7 @@ sub run_tests ($$$$$)
              my $out = $actual{$eo};
              my $orig = "$out.orig";
 
-             # Move $out aside (to $orig), then then recreate $out
+             # Move $out aside (to $orig), then recreate $out
              # by transforming each line of $orig via $subst_expr.
              rename $out, $orig
                or (warn "$program_name: cannot rename $out to $orig: $!\n"),