Merge pull request #1333 from antquinonez/dupes

Remove dupe consecutive words

Author: samcv

doc/Language/5to6-perlop.pod6

@@ -66,7 +66,7 @@ respectively.
 Unary C<~> is the string context operator in Perl 6, so use prefix C<+^>
 for bitwise integer negation. Assumes two's complement.
 
-C<+> I<does> have an effect in Perl 6, coercing its argument to to the
+C<+> I<does> have an effect in Perl 6, coercing its argument to the
 Numeric type.
 
 Unary <\> is no more. If you really want to take a reference to an existing

doc/Language/experimental.pod6

@@ -14,7 +14,7 @@ example, like this:
 
 Following is a list of current experimental features and a short
 description of each feature's purpose or a link to more details about
-its use.  (Note: Features marked marked "[TBD]" are to be defined
+its use.  (Note: Features marked "[TBD]" are to be defined
 later.)
 
 =comment The following should be a table but formatting in tables is

doc/Language/grammar_tutorial.pod6

@@ -135,7 +135,7 @@ be everything else left in the string.
 
 Next, we'll want to arrange these matching tokens within the larger context of
 the URI. That's what the TOP method allows us to do. We'll add the TOP method
-and place the names of our tokens within it, together with the rest of of the
+and place the names of our tokens within it, together with the rest of the
 patterns that makes up the overall pattern. Note how we're building a larger
 regex from our named regexes.
 

doc/Language/nativecall.pod6

@@ -323,7 +323,7 @@ C<union> definition; using the C<CUnion> representation:
 
 CStructs and CUnions can be in turn referenced by – or embedded into
 -- a surrounding CStruct and CUnion.  To say the former we use C<has>
-as usual, and to do the latter we use use the C<HAS> declarator
+as usual, and to do the latter we use the C<HAS> declarator
 instead:
 
     class MyStruct is repr('CStruct') {

doc/Language/operators.pod6

@@ -893,7 +893,7 @@ surrounding whitespace (before and/or after) to distinguish them.
 Calls the right-side method on the value in the left-side container,
 replacing the resulting value in the left-side container.
 
-In most cases this behaves identically to the the postfix mutator, but the
+In most cases this behaves identically to the postfix mutator, but the
 precedence is lower so:
 
 =for code :skip-test
@@ -1534,7 +1534,7 @@ equivalent:
     say A.new(a => 5) eqv A.new(a => 5);  # OUTPUT: «True␤»
 
 Although the above example works as intended the C<eqv> code has to fall back
-to a slower code path in in order to do its job. One way to avoid this is to
+to a slower code path in order to do its job. One way to avoid this is to
 implement an appropriate infix C<eqv> operator:
 
     my class A {

doc/Language/py-nutshell.pod6

@@ -660,7 +660,7 @@ Here's a python context manager that prints the strings
         print 'world'
 
 For enter and exit events, passing a block as
-as an argument would be one option:
+an argument would be one option:
 
     sub hello(Block $b) {
         say 'hello';