#include "EXTERN.h"
#include "perl.h"
#include "XSUB.h"
MODULE = Taint::Util PACKAGE = Taint::Util
void
tainted(SV *sv)
PPCODE:
EXTEND(SP, 1);
if (SvTAINTED(sv))
PUSHs(&PL_sv_yes);
else
PUSHs(&PL_sv_no);
void
taint(...)
PREINIT:
I32 i;
PPCODE:
for (i = 0; i < items; ++i)
if (!SvREADONLY(ST(i)))
SvTAINTED_on(ST(i));
void
untaint(...)
PREINIT:
I32 i;
PPCODE:
for (i = 0; i < items; ++i)
SvTAINTED_off(ST(i));