From 053a3618afa182a56688f9d286580985aa467e51 Mon Sep 17 00:00:00 2001 From: Steffen Mueller Date: Mon, 5 Nov 2012 08:06:43 +0100 Subject: [PATCH] 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)) --- perl.h | 3 +++ 1 file changed, 3 insertions(+) diff --git a/perl.h b/perl.h index f187eba..adf36c5 100644 --- 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 -- 1.8.3.1