From 2d9ebdc8ae382dca294cae79032026b0b34e2fb6 Mon Sep 17 00:00:00 2001 From: Jim Meyering Date: Sat, 8 Jul 2006 07:37:16 +0000 Subject: [PATCH] * tests/Coreutils.pm: Remove one of two adjacent "then"s in a comment. --- ChangeLog | 2 ++ tests/Coreutils.pm | 4 ++-- 2 files changed, 4 insertions(+), 2 deletions(-) diff --git a/ChangeLog b/ChangeLog index 79b3ae4..27a565a 100644 --- 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 diff --git a/tests/Coreutils.pm b/tests/Coreutils.pm index 6d3c4d2..1490fb1 100644 --- 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"), -- 2.7.4