diff options
author | Steffen Mueller <smueller@cpan.org> | 2012-11-05 08:06:43 +0100 |
---|---|---|
committer | Steffen Mueller <smueller@cpan.org> | 2012-11-05 08:06:43 +0100 |
commit | 053a3618afa182a56688f9d286580985aa467e51 (patch) | |
tree | 26e19c1145e7a2b213fd47dfb6ee551d13822978 /perl.h | |
parent | 284167a54e2da949b77d1e736a8b0a0d21210803 (diff) | |
download | perl-053a3618afa182a56688f9d286580985aa467e51.tar.gz |
More violent warning about using NO_TAINT_SUPPORT
I failed to update the commit message of the previous commit (sorry!).
The code is in a much better shape than the message claims and Configure
support, for example, won't be added at all to require more
determination from users. PL_taint_warn has since received the same
treatment. To wit:
# define TAINT_WARN_get (PL_taint_warn)
# define TAINT_WARN_set(s) (PL_taint_warn = (s))
Diffstat (limited to 'perl.h')
-rw-r--r-- | perl.h | 3 |
1 files changed, 3 insertions, 0 deletions
@@ -539,6 +539,9 @@ register struct op *Perl_op asm(stringify(OP_IN_REGISTER)); * SILENT_NO_TAINT_SUPPORT implies NO_TAINT_SUPPORT. * SILENT_NO_TAINT_SUPPORT is the same as NO_TAINT_SUPPORT except it * silently ignores -t/-T instead of throwing an exception. + * + * DANGER! Using NO_TAINT_SUPPORT or SILENT_NO_TAINT_SUPPORT + * voids your non-existant warranty! */ #if SILENT_NO_TAINT_SUPPORT && !defined(NO_TAINT_SUPPORT) # define NO_TAINT_SUPPORT 1 |