| /dports/x11-toolkits/p5-Tk/Tk-804.035/Event/ |
| H A D | pTkCallback.c | 43 int old_taint = PL_tainted;
46 PL_tainted = 0;
91 PL_tainted = old_taint;
|
| /dports/devel/p5-Taint-Runtime/Taint-Runtime-0.03/ |
| H A D | Runtime.xs | 34 PL_tainted = 1;
|
| H A D | README | 241 use Inline C => 'SV* _tainted() { PL_tainted = 1; return newSVpvn("", 0); }';
|
| /dports/www/mod_perl2/mod_perl-2.0.11/src/modules/perl/ |
| H A D | modperl_error.c | 69 int is_tainted = PL_tainted; in modperl_croak()
|
| /dports/lang/perl5.30/perl-5.30.3/dist/Devel-PPPort/parts/base/ |
| H A D | 5004050 | 39 PL_tainted # added by devel/scanprov
|
| /dports/lang/perl5.32/perl-5.32.1/dist/Devel-PPPort/parts/base/ |
| H A D | 5004005 | 43 PL_tainted # M added by devel/scanprov
|
| /dports/devel/p5-B-C/B-C-1.57/ |
| H A D | cc_runtime.h | 25 if (PL_tainting && PL_tainted && (!SvGMAGICAL(left) || !SvSMAGICAL(left) || \
|
| /dports/lang/perl5.34/perl-5.34.0/dist/Devel-PPPort/parts/inc/ |
| H A D | variables | 58 PL_tainted
137 # define PL_tainted tainted
410 ppp_TESTVAR(PL_tainted);
|
| /dports/lang/perl5.30/perl-5.30.3/dist/Devel-PPPort/parts/inc/ |
| H A D | variables | 57 PL_tainted
134 # define PL_tainted tainted
406 ppp_TESTVAR(PL_tainted);
|
| /dports/lang/perl5-devel/perl5-5.35.4-102-ge43d289c7c/dist/Devel-PPPort/parts/inc/ |
| H A D | variables | 58 PL_tainted
137 # define PL_tainted tainted
410 ppp_TESTVAR(PL_tainted);
|
| /dports/lang/perl5.32/perl-5.32.1/dist/Devel-PPPort/parts/inc/ |
| H A D | variables | 58 PL_tainted
137 # define PL_tainted tainted
410 ppp_TESTVAR(PL_tainted);
|
| /dports/devel/p5-Devel-PPPort/Devel-PPPort-3.63/parts/inc/ |
| H A D | variables | 58 PL_tainted
137 # define PL_tainted tainted
410 ppp_TESTVAR(PL_tainted);
|
| /dports/x11-toolkits/p5-Tk/Tk-804.035/ |
| H A D | tkGlue.c | 2003 int old_taint = PL_tainted;
2229 PL_tainted = 0;
2336 PL_tainted = old_taint;
4179 PL_tainted = old_taint;
4236 PL_tainted = old_taint;
4347 PL_tainted = 0;
4350 PL_tainted = old_taint;
4434 PL_tainted = 0; in Tcl_GlobalEval()
4440 PL_tainted = 1; in Tcl_GlobalEval()
4443 PL_tainted = 0; in Tcl_GlobalEval()
[all …]
|
| H A D | tkGlue.def | 20 #define PL_tainted tainted
|
| /dports/lang/perl5.32/perl-5.32.1/dist/Devel-PPPort/parts/ |
| H A D | ppport.fnc | 87 Amn|void|PL_tainted
|
| /dports/devel/p5-Devel-PPPort/Devel-PPPort-3.63/parts/ |
| H A D | ppport.fnc | 78 AmnT|void|PL_tainted
|
| /dports/lang/perl5-devel/perl5-5.35.4-102-ge43d289c7c/dist/Devel-PPPort/parts/ |
| H A D | ppport.fnc | 78 AmnT|void|PL_tainted
|
| /dports/devel/p5-B-C/B-C-1.57/ramblings/ |
| H A D | blogs-optimizing-4.md | 70 `TAINT_NOT` does `(PL_tainted = (0))`. It is needed only once, because nobody
71 changes `PL_tainted`. We can also ignore taint checks generally by setting `-fomit_taint`.
|
| /dports/lang/perl5.34/perl-5.34.0/dist/Devel-PPPort/parts/ |
| H A D | ppport.fnc | 84 AmnT|void|PL_tainted
|
| /dports/lang/perl5.34/perl-5.34.0/ |
| H A D | embedvar.h | 338 #define PL_tainted (vTHX->Itainted) macro
|
| /dports/lang/perl5-devel/perl5-5.35.4-102-ge43d289c7c/ |
| H A D | embedvar.h | 316 #define PL_tainted (vTHX->Itainted) macro
|
| /dports/devel/p5-Devel-Cover/Devel-Cover-1.36/ |
| H A D | Cover.xs | 288 int tainted = PL_tainted; in check_if_collecting()
364 PL_tainted = tainted; in check_if_collecting()
|
| /dports/lang/perl5.32/perl-5.32.1/ |
| H A D | embedvar.h | 338 #define PL_tainted (vTHX->Itainted) macro
|
| /dports/lang/perl5.30/perl-5.30.3/ |
| H A D | embedvar.h | 323 #define PL_tainted (vTHX->Itainted) macro
|
| H A D | perl.h | 626 # define TAINT (PL_tainted = PL_tainting)
627 # define TAINT_NOT (PL_tainted = FALSE)
628 # define TAINT_IF(c) if (UNLIKELY(c)) { PL_tainted = PL_tainting; }
631 # define TAINT_set(s) (PL_tainted = (s))
632 # define TAINT_get (PL_tainted)
|