#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