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

diff --git a/ChangeLog b/ChangeLog
index 79b3ae4..27a565a 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 6d3c4d2..1490fb1 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"),