Repositories (1)

pumpkin-perl
2 snippets stored for this repo
C IconC
taint
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 */
C IconC
taint
break;
            case '\024':	/* ${^TAINT} */
                if (memEQs(name, len, "\024AINT"))