Fix a bunch of repeated-word typos

Mostly in comments and docs, but some in diagnostic messages and one
case of 'or die die'.

21 files changed, 30 insertions, 30 deletions

diff --git a/t/TEST b/t/TEST
index 05cc065fa2..f8ed6579bf 100755
--- a/t/TEST
+++ b/t/TEST
@@ -475,7 +475,7 @@ unless (@ARGV) {
     }
     # Config.pm may be broken for make minitest. And this is only a refinement
     # for skipping tests on non-default builds, so it is allowed to fail.
-    # What we want to to is make a list of extensions which we did not build.
+    # What we want to do is make a list of extensions which we did not build.
     my $configsh = '../config.sh';
     my ($extensions, $known_extensions);
     if (-f $configsh) {
diff --git a/t/io/openpid.t b/t/io/openpid.t
index 8912f39c05..dad6af091a 100644
--- a/t/io/openpid.t
+++ b/t/io/openpid.t
@@ -39,7 +39,7 @@ my @perl = ( which_perl(), "-I../lib" );
 # the other reader reads one line, waits a few seconds and then
 # exits to test the waitpid function.
 #
-# Using 4+ arg open for the children that sleep so that that we're
+# Using 4+ arg open for the children that sleep so that we're
 # killing the perl process instead of an intermediate shell, this
 # allows harness to see the file handles closed sooner.  I didn't
 # convert them all since I wanted 3-arg open to continue to be
diff --git a/t/loc_tools.pl b/t/loc_tools.pl
index 8c1955de2d..9ec085a167 100644
--- a/t/loc_tools.pl
+++ b/t/loc_tools.pl
@@ -1,4 +1,4 @@
-# Common tools for test files files to find the locales which exist on the
+# Common tools for test files to find the locales which exist on the
 # system.  Caller should have verified that this isn't miniperl before calling
 # the functions.
 
diff --git a/t/mro/next_edgecases.t b/t/mro/next_edgecases.t
index 31a33552f3..1b093807bc 100644
--- a/t/mro/next_edgecases.t
+++ b/t/mro/next_edgecases.t
@@ -42,7 +42,7 @@ plan(tests => 12);
     object_ok($bar, 'Bar');
     object_ok($bar, 'Foo');    
     
-    # test it working with with Sub::Name
+    # test it working with Sub::Name
     SKIP: {    
         eval 'use Sub::Name';
         skip("Sub::Name is required for this test", 3) if $@;
diff --git a/t/mro/next_edgecases_utf8.t b/t/mro/next_edgecases_utf8.t
index 8be8d66fea..0a53fabe21 100644
--- a/t/mro/next_edgecases_utf8.t
+++ b/t/mro/next_edgecases_utf8.t
@@ -47,7 +47,7 @@ plan(tests => 12);
     object_ok($bar, 'Baɾ');
     object_ok($bar, 'ᕘ');    
     
-    # test it working with with Sub::Name
+    # test it working with Sub::Name
     SKIP: {    
         eval 'use Sub::Name';
         skip("Sub::Name is required for this test", 3) if $@;
diff --git a/t/op/aassign.t b/t/op/aassign.t
index 4e7aee7017..ed904adc62 100644
--- a/t/op/aassign.t
+++ b/t/op/aassign.t
@@ -540,7 +540,7 @@ SKIP: {
     }
 
     # undef on LHS uses RHS as lvalue instead
-    # Note this this just codifies existing behaviour - it may not be
+    # Note that this just codifies existing behaviour - it may not be
     # correct. See http://nntp.perl.org/group/perl.perl5.porters/240358.
 
     {
diff --git a/t/op/bop.t b/t/op/bop.t
index efc6172fc1..eecd90387f 100644
--- a/t/op/bop.t
+++ b/t/op/bop.t
@@ -563,11 +563,11 @@ is $^A, "123", '~v0 clears vstring magic on retval';
         is(-1 << 1, 0xFFFF_FFFF_FFFF_FFFE,
            "neg UV (sic) left shift  = 0xFF..E");
         is(-1 >> 1, 0x7FFF_FFFF_FFFF_FFFF,
-           "neg UV (sic) right right = 0x7F..F");
+           "neg UV (sic) right shift = 0x7F..F");
     } elsif ($w == 32) {
         no warnings "portable";
         is(-1 << 1, 0xFFFF_FFFE, "neg left shift  == 0xFF..E");
-        is(-1 >> 1, 0x7FFF_FFFF, "neg right right == 0x7F..F");
+        is(-1 >> 1, 0x7FFF_FFFF, "neg right shift == 0x7F..F");
     }
 
     {
diff --git a/t/op/caller.pl b/t/op/caller.pl
index bf2afe974d..25fe4af655 100644
--- a/t/op/caller.pl
+++ b/t/op/caller.pl
@@ -140,7 +140,7 @@ EOE
     if ($::testing_caller) {
 	# Perl_refcounted_he_fetch() insists that you have the key correctly
 	# normalised for the way hashes store them. As this one isn't
-	# normalised down to bytes, it won't t work with
+	# normalised down to bytes, it won't work with
 	# Perl_refcounted_he_fetch()
 	is(hint_fetch($k2), 2, "UTF-8 or not, it's the same");
     }
diff --git a/t/op/groups.t b/t/op/groups.t
index 69ea0a1957..83d488298b 100644
--- a/t/op/groups.t
+++ b/t/op/groups.t
@@ -313,7 +313,7 @@ sub perl_groups {
 
         # Why does this test prefer to not test groups which we don't have
         # a name for? One possible answer is that my primary group comes
-        # from from my entry in the user database but isn't mentioned in
+        # from my entry in the user database but isn't mentioned in
         # the group database.  Are there more reasons?
         next if ! defined $group;
 
diff --git a/t/op/lc.t b/t/op/lc.t
index 69975b43fd..fce77f3d34 100644
--- a/t/op/lc.t
+++ b/t/op/lc.t
@@ -421,7 +421,7 @@ SKIP: {
     is (lc "${filler}I\x{307}\x{300}$filler", "${filler_lc}i\x{300}$filler_lc",
         "lc in Turkic locale with DOT ABOVE followed by ABOVE");
     is (lc "${filler}I\x{300}\x{307}$filler", "$filler_lc\x{131}\x{300}\x{307}$filler_lc",
-        "lc in Turkic locale with with other ABOVE before DOT ABOVE");
+        "lc in Turkic locale with other ABOVE before DOT ABOVE");
     is (lcfirst "IIIIIII$filler", "\x{131}IIIIII$filler",
         "lcfirst in Turkic locale, only first I changed");
     is (lcfirst "I\x{307}$filler", "i$filler",
@@ -434,7 +434,7 @@ SKIP: {
     is (lcfirst "I\x{307}\x{300}IIIIII$filler", "i\x{300}IIIIII$filler",
         "lcfirst in Turkic locale with DOT ABOVE followed by ABOVE");
     is (lcfirst "I\x{300}\x{307}IIIIII$filler", "\x{131}\x{300}\x{307}IIIIII$filler",
-        "lcfirst in Turkic locale with with other ABOVE before DOT ABOVE");
+        "lcfirst in Turkic locale with other ABOVE before DOT ABOVE");
     is (uc "${filler}i$filler", "$filler_uc\x{130}$filler_uc", "long string uc in Turkic locale");
     is (ucfirst "ii$filler", "\x{130}i$filler", "long string ucfirst in Turkic locale; only first char changes");
 }
diff --git a/t/op/lfs.t b/t/op/lfs.t
index 1ddfd13ccd..c53a9eb82f 100644
--- a/t/op/lfs.t
+++ b/t/op/lfs.t
@@ -134,7 +134,7 @@ if ($r or not seek(BIG, 5_000_000_000, SEEK_SET)) {
 }
 
 # Either the print or (more likely, thanks to buffering) the close will
-# fail if there are are filesize limitations (process or fs).
+# fail if there are filesize limitations (process or fs).
 my $print = print BIG "big";
 print "# print failed: $!\n" unless $print;
 my $close = close BIG;
diff --git a/t/op/ref.t b/t/op/ref.t
index 19163ef476..433cf8257f 100644
--- a/t/op/ref.t
+++ b/t/op/ref.t
@@ -497,7 +497,7 @@ is (runperl(
 
 # using a regex in the destructor for STDOUT segfaulted because the
 # REGEX pad had already been freed (ithreads build only). The
-# object is required to trigger the early freeing of GV refs to to STDOUT
+# object is required to trigger the early freeing of GV refs to STDOUT
 
 TODO: {
     local $TODO = "works but output through pipe is mangled" if $^O eq 'VMS';
diff --git a/t/op/split.t b/t/op/split.t
index b25d6cbf4c..14f9158444 100644
--- a/t/op/split.t
+++ b/t/op/split.t
@@ -557,7 +557,7 @@ is "@a", '1 2 3', 'assignment to split-to-array (stacked)';
     is $c, 2, "run-time re-eval count";
 }
 
-# check that that my/local @array = split works
+# check that my/local @array = split works
 
 {
     my $s = "a:b:c";
diff --git a/t/op/sprintf.t b/t/op/sprintf.t
index 6699a5cda4..f08a92d909 100644
--- a/t/op/sprintf.t
+++ b/t/op/sprintf.t
@@ -133,7 +133,7 @@ for (@tests) {
             if ($cond =~ /^\d/) {
                 # >comment skip: hpux:10.20<
                 my $vsn = $cond;
-                # Only compare on the the first pair of digits, as numeric
+                # Only compare on the first pair of digits, as numeric
                 # compares do not like 2.6.10-3mdksmp or 2.6.8-24.10-default
                 s/^(\d+(\.\d+)?).*/$1/ for $osv, $vsn;
                 $skip = $vsn ? ($osv <= $vsn ? 1 : 0) : 1;
diff --git a/t/op/sub_lval.t b/t/op/sub_lval.t
index 099bb649fd..6062da43e1 100644
--- a/t/op/sub_lval.t
+++ b/t/op/sub_lval.t
@@ -969,7 +969,7 @@ for (
 }
 continue { $suffix = ' (explicit return)' }
 
-# Returning unwritables from nested lvalue sub call in in rvalue context
+# Returning unwritables from nested lvalue sub call in rvalue context
 # First, ensure we are testing what we think we are:
 if (!Internals::SvREADONLY($])) { Internals::SvREADONLY($],1); }
 sub squibble : lvalue { return $] }
diff --git a/t/op/svleak.t b/t/op/svleak.t
index bfa6747a02..6acc298c3d 100644
--- a/t/op/svleak.t
+++ b/t/op/svleak.t
@@ -43,7 +43,7 @@ sub eleak {
 }
 
 # run some expression N times. The expr is concatenated N times and then
-# evaled, ensuring that that there are no scope exits between executions.
+# evaled, ensuring that there are no scope exits between executions.
 # If the number of SVs at the end of expr N is greater than (N-1)*delta at
 # the end of expr 1, we've got a leak
 #
diff --git a/t/porting/bench.t b/t/porting/bench.t
index 9d2ab87690..0176b3850c 100644
--- a/t/porting/bench.t
+++ b/t/porting/bench.t
@@ -407,7 +407,7 @@ $out = qx($bench_cmd -j 2 --write=$resultfile1 --tests=call::sub::empty $^X=p0 2
 is $out, "", "--write should produce no output (1 perl)";
 ok -s $resultfile1, "--write should create a non-empty results file (1 perl)";
 
-# and again with 2 perls. This is also tests the 'mix read and new new
+# and again with 2 perls. This is also tests the 'mix read and new
 # perls' functionality.
 
 note("running cachegrind for 2nd perl; may be slow...");
diff --git a/t/porting/diag.t b/t/porting/diag.t
index e6b9b93672..85e4a1f3ed 100644
--- a/t/porting/diag.t
+++ b/t/porting/diag.t
@@ -164,7 +164,7 @@ foreach my $cur_entry ( keys %entries) {
     if (! exists $entries{$cur_entry}{severity}
 
             # If there is no first line, it was two =items in a row, so the
-            # second one is the one with with text, not this one.
+            # second one is the one with text, not this one.
         && exists $entries{$cur_entry}{first_line}
 
             # If the first line refers to another message, no need for severity
diff --git a/t/porting/podcheck.t b/t/porting/podcheck.t
index 6a04f090d0..0797d57930 100644
--- a/t/porting/podcheck.t
+++ b/t/porting/podcheck.t
@@ -140,7 +140,7 @@ After inspecting them and
 deciding that they aren't real problems, it is possible to shut up this program
 about them, unlike base Pod::Checker.  For a valid link to an outside module
 or man page, call podcheck.t with the C<--add_link> option to add it to the
-the database of known links; for other causes, call podcheck.t with the C<--regen>
+database of known links; for other causes, call podcheck.t with the C<--regen>
 option to regenerate the entire database.  This tells it that all existing
 issues are to not be mentioned again.
 
@@ -285,7 +285,7 @@ L<Pod::Checker>
 my $vms_re = qr/ \. (?: com )? /x;
 
 # Some filenames in the MANIFEST match $vms_re, and so must not be handled the
-# same way that that the special vms ones are.  This hash lists those.
+# same way that the special vms ones are.  This hash lists those.
 my %special_vms_files;
 
 # This is to get this to work across multiple file systems, including those
@@ -681,7 +681,7 @@ package My::Pod::Checker {      # Extend Pod::Checker
     my %command_count;      # Number of commands seen
     my %seen_pod_cmd;       # true if have =pod earlier
     my %skip;               # is SKIP set for this pod
-    my %start_line;         # the first input line number in the the thing
+    my %start_line;         # the first input line number in the thing
                             # currently being worked on
 
     sub DESTROY {
@@ -1165,7 +1165,7 @@ package My::Pod::Checker {      # Extend Pod::Checker
 
         # Warn if looks like a file or link enclosed instead by this C<>
         if ($C_text{$addr} =~ qr/^ $C_path_re $/x) {
-            # Here it does look like it could be be a file path or a link.
+            # Here it does look like it could be a file path or a link.
             # But some varieties of regex patterns could also fit with what we
             # have so far.  Weed those out as best we can.  '/foo/' is almost
             # certainly meant to be a pattern, as is '/foo/g'.
@@ -1209,7 +1209,7 @@ package My::Pod::Checker {      # Extend Pod::Checker
         # link would be lost, as the L<> would be gone.
         $CFL_text{$addr} = "C<$CFL_text{$addr}>";
 
-        # Add this text to the the whole running total only if popping this
+        # Add this text to the whole running total only if popping this
         # directive off the stack leaves it empty.  As long as something is on
         # the stack, it gets added to $CFL_text (just above).  It is only
         # entirely constructed when the stack is empty.
diff --git a/t/re/pat_re_eval.t b/t/re/pat_re_eval.t
index 696b6a3fb5..75c6ed6306 100644
--- a/t/re/pat_re_eval.t
+++ b/t/re/pat_re_eval.t
@@ -1281,7 +1281,7 @@ sub run_tests {
     # RT #132772
     #
     # Ensure that optimisation of OP_CONST into OP_MULTICONCAT doesn't
-    # leave any freed ops in the execution path. This is is associated
+    # leave any freed ops in the execution path. This is associated
     # with rpeep() being called before optimize_optree(), which causes
     # gv/rv2sv to be prematurely optimised into gvsv, confusing
     # S_maybe_multiconcat when it tries to reorganise a concat subtree
@@ -1294,11 +1294,11 @@ sub run_tests {
         ok /^a(??{ $b."c" })$/,  "RT #132772 - compile time";
         ok /^$a(??{ $b."c" })$/, "RT #132772 - run time";
         my $qr = qr/^a(??{ $b."c" })$/;
-        ok /$qr/,  "RT #132772 - compile time time qr//";
+        ok /$qr/,  "RT #132772 - compile time qr//";
         $qr = qr/(??{ $b."c" })$/;
-        ok /^a$qr$/,  "RT #132772 -  compile time time qr// compound";
+        ok /^a$qr$/,  "RT #132772 -  compile time qr// compound";
         $qr = qr/$a(??{ $b."c" })$/;
-        ok /^$qr$/,  "RT #132772 -  run time time qr//";
+        ok /^$qr$/,  "RT #132772 -  run time qr//";
     }
 
     # RT #133687
diff --git a/t/re/recompile.t b/t/re/recompile.t
index 8c9b92e126..5a6f7d7f91 100644
--- a/t/re/recompile.t
+++ b/t/re/recompile.t
@@ -147,7 +147,7 @@ comp_n(3, <<'CODE', 'mixed utf8 qr');
 "a" =~ qr/$_/ for "\x{c4}\x{80}",  "\x{100}", "\x{c4}\x{80}";
 CODE
 
-# note that that for runtime code, each pattern is compiled twice; the
+# note that for runtime code, each pattern is compiled twice; the
 # second time to allow the parser to see the code.
 
 comp_n(6, <<'CODE', 'runtime code');