diff options
author | Karl Williamson <khw@cpan.org> | 2019-04-18 10:10:41 -0600 |
---|---|---|
committer | Karl Williamson <khw@cpan.org> | 2019-05-24 17:09:30 -0600 |
commit | bc2f1ca15922645b3e432d3a3ef7142fe6baedbb (patch) | |
tree | 05c6daba222497ada027aae89ddcdb5e0b874580 /taint.c | |
parent | 6aba5c5eec25a6294e01899eb55a31bf5b889900 (diff) | |
download | perl-bc2f1ca15922645b3e432d3a3ef7142fe6baedbb.tar.gz |
Add some comments around tainting
Diffstat (limited to 'taint.c')
-rw-r--r-- | taint.c | 5 |
1 files changed, 4 insertions, 1 deletions
@@ -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) { |