summaryrefslogtreecommitdiff
path: root/mg.c
diff options
context:
space:
mode:
authorDavid Mitchell <davem@iabyn.com>2016-08-26 12:10:58 +0100
committerDavid Mitchell <davem@iabyn.com>2016-09-07 21:00:16 +0100
commit70b484a838d68bb87a6e0bfb2d8f6575ae47b8fd (patch)
treeb6ced93a3260d9cf11a100e395e218bc3cec7e1a /mg.c
parent19e1655416b3c03817d6123958721515e146fc9f (diff)
downloadperl-70b484a838d68bb87a6e0bfb2d8f6575ae47b8fd.tar.gz
add some code comments for the users of delimcpy()
While fixing delimcpy(), I found that it wasn't always clear what its callers did, so I've added some extra code comments. also add a balancing '}' in a comment block to help editors that jump between matching brackets.
Diffstat (limited to 'mg.c')
-rw-r--r--mg.c2
1 files changed, 2 insertions, 0 deletions
diff --git a/mg.c b/mg.c
index 85e31751cf..863b5fc4c8 100644
--- 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;