#include "EXTERN.h"
#include "perl.h"
#include "XSUB.h"
#include "ppport.h"
MODULE = Taint::Runtime PACKAGE = Taint::Runtime
int
_taint_start()
CODE:
PL_tainting = 1;
RETVAL = 1;
OUTPUT:
RETVAL
int
_taint_stop()
CODE:
PL_tainting = 0;
RETVAL = 1;
OUTPUT:
RETVAL
int
_taint_enabled()
CODE:
RETVAL = PL_tainting;
OUTPUT:
RETVAL
SV*
_tainted()
CODE:
PL_tainted = 1;
RETVAL = newSVpvn("", 0);
OUTPUT:
RETVAL