toke.c: Fix grammar in comment

[perl5.git] / mg.c

diff --git a/mg.c b/mg.c
index 85e3175..863b5fc 100644 (file)
--- a/mg.c
+++ b/mg.c
@@ -1208,6 +1208,8 @@ Perl_magic_setenv(pTHX_ SV *sv, MAGIC *mg)
        if (s && klen == 4 && strEQ(key,"PATH")) {
            const char * const strend = s + len;
 
+            /* set MGf_TAINTEDDIR if any component of the new path is
+             * relative or world-writeable */
            while (s < strend) {
                char tmpbuf[256];
                Stat_t st;