summaryrefslogtreecommitdiff
path: root/taint.c
diff options
context:
space:
mode:
authorKarl Williamson <khw@cpan.org>2019-04-18 10:10:41 -0600
committerKarl Williamson <khw@cpan.org>2019-05-24 17:09:30 -0600
commitbc2f1ca15922645b3e432d3a3ef7142fe6baedbb (patch)
tree05c6daba222497ada027aae89ddcdb5e0b874580 /taint.c
parent6aba5c5eec25a6294e01899eb55a31bf5b889900 (diff)
downloadperl-bc2f1ca15922645b3e432d3a3ef7142fe6baedbb.tar.gz
Add some comments around tainting
Diffstat (limited to 'taint.c')
-rw-r--r--taint.c5
1 files changed, 4 insertions, 1 deletions
diff --git a/taint.c b/taint.c
index 72216f85de..871d89f48b 100644
--- a/taint.c
+++ b/taint.c
@@ -26,6 +26,9 @@
void
Perl_taint_proper(pTHX_ const char *f, const char *const s)
{
+ /* Output a tainting violation, croaking unless we're just to warn.
+ * '_proper' is just to throw you off the scent */
+
#if defined(HAS_SETEUID) && defined(DEBUGGING)
PERL_ARGS_ASSERT_TAINT_PROPER;
@@ -60,7 +63,7 @@ Perl_taint_proper(pTHX_ const char *f, const char *const s)
ug = " while running with -T switch";
/* XXX because taint_proper adds extra format args, we can't
- * get the caller to check properly; o we just silence the warning
+ * get the caller to check properly; so we just silence the warning
* and hope the callers aren't naughty */
GCC_DIAG_IGNORE_STMT(-Wformat-nonliteral);
if (PL_unsafe || TAINT_WARN_get) {