More violent warning about using NO_TAINT_SUPPORT
authorSteffen Mueller <smueller@cpan.org>
Mon, 5 Nov 2012 07:06:43 +0000 (08:06 +0100)
committerSteffen Mueller <smueller@cpan.org>
Mon, 5 Nov 2012 07:06:43 +0000 (08:06 +0100)
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))

perl.h

index f187eba..adf36c5 100644 (file)
--- a/perl.h
+++ b/perl.h
@@ -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