1 files changed, 1 insertions, 1 deletions
diff --git a/doio.c b/doio.c
index 23aedfb342..13d412a35e 100644
--- a/doio.c
+++ b/doio.c
@@ -2494,7 +2494,7 @@ Perl_apply(pTHX_ I32 type, SV **mark, SV **sp)
     PERL_UNUSED_VAR(what); /* may not be used depending on compile options */
 
     /* Doing this ahead of the switch statement preserves the old behaviour,
-       where attempting to use kill as a taint test test would fail on
+       where attempting to use kill as a taint test would fail on
        platforms where kill was not defined.  */
 #ifndef HAS_KILL
     if (type == OP_KILL)