File: Util.xs

package info (click to toggle)
libtaint-util-perl 0.08-4
  • links: PTS, VCS
  • area: main
  • in suites: bookworm, forky, sid, trixie
  • size: 128 kB
  • sloc: perl: 113; makefile: 3
file content (31 lines) | stat: -rw-r--r-- 485 bytes parent folder | download | duplicates (4) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
 
#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));