perl.h: Add a comment about tainting
authorKarl Williamson <khw@cpan.org>
Thu, 18 Apr 2019 16:10:41 +0000 (10:10 -0600)
committerKarl Williamson <khw@cpan.org>
Tue, 2 Jul 2019 01:38:00 +0000 (19:38 -0600)
perl.h

diff --git a/perl.h b/perl.h
index fda9255..a82d055 100644 (file)
--- a/perl.h
+++ b/perl.h
                                     taint_proper(NULL, s);                  \
                                 }
 #   define TAINT_set(s)                (PL_tainted = (s))
-#   define TAINT_get           (PL_tainted)
+#   define TAINT_get           (PL_tainted)    /* Is something tainted? */
 #   define TAINTING_get                (PL_tainting)   /* Is taint checking enabled? */
 #   define TAINTING_set(s)     (PL_tainting = (s))
 #   define TAINT_WARN_get       (PL_taint_warn) /* FALSE => tainting violations