undup

Message-ID: <42F5E243.80500@gmail.com>

p4raw-id: //depot/perl@25274

9 files changed, 12 insertions, 12 deletions

diff --git a/ext/Encode/lib/Encode/Supported.pod b/ext/Encode/lib/Encode/Supported.pod
index fab86e95ad..651f7e6ed4 100644
--- a/ext/Encode/lib/Encode/Supported.pod
+++ b/ext/Encode/lib/Encode/Supported.pod
@@ -834,7 +834,7 @@ The glossary of this document is based upon this site.
 
 L<http://czyborra.com/>
 
-Contains a a lot of useful information, especially gory details of ISO
+Contains a lot of useful information, especially gory details of ISO
 vs. vendor mappings.
 
 =item CJK.inf
diff --git a/lib/Test/Harness/TAP.pod b/lib/Test/Harness/TAP.pod
index bfecee5266..fa8047883e 100644
--- a/lib/Test/Harness/TAP.pod
+++ b/lib/Test/Harness/TAP.pod
@@ -148,7 +148,7 @@ these two keywords are not case-sensitive.
 =head2 TODO tests
 
 If the directive starts with C<# TODO>, the test is counted as a
-todo test, and the text after C<TODO> is the the explanation.
+todo test, and the text after C<TODO> is the explanation.
 
     not ok 13 # TODO bend space and time
 
diff --git a/pad.c b/pad.c
index fc66b303b0..c0e7a5b619 100644
--- a/pad.c
+++ b/pad.c
@@ -386,7 +386,7 @@ Perl_pad_add_name(pTHX_ const char *name, HV* typestash, HV* ourstash, bool fake
 
 Allocate a new my or tmp pad entry. For a my, simply push a null SV onto
 the end of PL_comppad, but for a tmp, scan the pad from PL_padix upwards
-for a slot which has no name and and no active value.
+for a slot which has no name and no active value.
 
 =cut
 */
diff --git a/pod/perl573delta.pod b/pod/perl573delta.pod
index ea496789d3..42ed261561 100644
--- a/pod/perl573delta.pod
+++ b/pod/perl573delta.pod
@@ -149,7 +149,7 @@ unpack("Z*Z*", pack("Z*Z*", ..)) was broken
 
 =item 12243
 
-Devel::Peek: display UTF-8 SVs also also as \x{...}
+Devel::Peek: display UTF-8 SVs also as \x{...}
 
 =item 12288
 
diff --git a/pod/perl58delta.pod b/pod/perl58delta.pod
index 295724f0f7..04a03747aa 100644
--- a/pod/perl58delta.pod
+++ b/pod/perl58delta.pod
@@ -416,7 +416,7 @@ for more information about UTF-8.
 =item *
 
 If your environment variables (LC_ALL, LC_CTYPE, LANG) look like you
-want to use UTF-8 (any of the the variables match C</utf-?8/i>), your
+want to use UTF-8 (any of the variables match C</utf-?8/i>), your
 STDIN, STDOUT, STDERR handles and the default open layer (see L<open>)
 are marked as UTF-8.  (This feature, like other new features that
 combine Unicode and I/O, work only if you are using PerlIO, but that's
@@ -3362,7 +3362,7 @@ use the bundled C compiler.)
 
 Perl 5.8.0 doesn't build in AmigaOS.  It broke at some point during
 the ithreads work and we could not find Amiga experts to unbreak the
-problems.  Perl 5.6.1 still works for AmigaOS (as does the the 5.7.2
+problems.  Perl 5.6.1 still works for AmigaOS (as does the 5.7.2
 development release).
 
 =head2 BeOS
@@ -3701,7 +3701,7 @@ from the CPAN.
 Perl 5.8 unfortunately does not build anymore on AmigaOS; this broke
 accidentally at some point.  Since there are not that many Amiga
 developers available, we could not get this fixed and tested in time
-for 5.8.0.  Perl 5.6.1 still works for AmigaOS (as does the the 5.7.2
+for 5.8.0.  Perl 5.6.1 still works for AmigaOS (as does the 5.7.2
 development release).
 
 The C<PerlIO::Scalar> and C<PerlIO::Via> (capitalised) were renamed as
diff --git a/pod/perlfaq7.pod b/pod/perlfaq7.pod
index 644b06599a..b765d756d7 100644
--- a/pod/perlfaq7.pod
+++ b/pod/perlfaq7.pod
@@ -179,7 +179,7 @@ If you're looking for something a bit more rigorous, try L<perltoot>.
 (contributed by brian d foy)
 
 L<perlmod>, L<perlmodlib>, L<perlmodstyle> explain modules
-in all the gory details. L<perlnewmod> gives a a brief
+in all the gory details. L<perlnewmod> gives a brief
 overview of the process along with a couple of suggestions
 about style.
 
diff --git a/pod/perlglossary.pod b/pod/perlglossary.pod
index 31a20de8a3..24679c907b 100644
--- a/pod/perlglossary.pod
+++ b/pod/perlglossary.pod
@@ -184,7 +184,7 @@ regular operators.  See L<perlop>.
 
 =item autoincrement
 
-To add one to something automatically, hence the name of the the C<++>
+To add one to something automatically, hence the name of the C<++>
 operator.  To instead subtract one from something automatically is
 known as an "autodecrement".
 
diff --git a/pod/perlvar.pod b/pod/perlvar.pod
index 5589ce2712..a820be1a81 100644
--- a/pod/perlvar.pod
+++ b/pod/perlvar.pod
@@ -854,7 +854,7 @@ changes.  Modifying the $0 is more useful as a way of indicating the
 current program state than it is for hiding the program you're
 running.  (Mnemonic: same as B<sh> and B<ksh>.)
 
-Note that there are platform specific limitations on the the maximum
+Note that there are platform specific limitations on the maximum
 length of C<$0>.  In the most extreme case it may be limited to the
 space occupied by the original C<$0>.
 
@@ -872,7 +872,7 @@ and version).  This is an operating system feature, Perl cannot help it.
 
 In multithreaded scripts Perl coordinates the threads so that any
 thread may modify its copy of the C<$0> and the change becomes visible
-to ps(1) (assuming the operating system plays along).  Note that the
+to ps(1) (assuming the operating system plays along).  Note that
 the view of C<$0> the other threads have will not change since they
 have their own copies of it.
 
diff --git a/pp_ctl.c b/pp_ctl.c
index 01a90d5f58..983a7605f4 100644
--- a/pp_ctl.c
+++ b/pp_ctl.c
@@ -2862,7 +2862,7 @@ Locate the CV corresponding to the currently executing sub or eval.
 If db_seqp is non_null, skip CVs that are in the DB package and populate
 *db_seqp with the cop sequence number at the point that the DB:: code was
 entered. (allows debuggers to eval in the scope of the breakpoint rather
-than in in the scope of the debugger itself).
+than in the scope of the debugger itself).
 
 =cut
 */