Repositories (1)
perl5
3 snippets stored for this repo
varsv = GvSVn(vargv);
SvTAINTED_off(varsv); /* previous $AUTOLOAD taint is obsolete */
/* XXX: this process is not careful to avoid extra magic gets and sets; tied $AUTOLOAD will get noise */
break;
case '\024': /* ${^TAINT} */
if (strEQ(name2, "AINT"))
/* By compiling a perl with -DNO_TAINT_SUPPORT or -DSILENT_NO_TAINT_SUPPORT,
* you get a perl without taint support, but doubtlessly with a lesser
* degree of support. Do not do so unless you know exactly what it means