1#include "EXTERN.h"
2#include "perl.h"
3#include "XSUB.h"
4
5#include "ppport.h"
6
7
8MODULE = Readonly::XS		PACKAGE = Readonly::XS
9
10int
11is_sv_readonly(sv)
12    SV *sv
13PROTOTYPE: $
14CODE:
15    RETVAL = SvREADONLY(sv);
16OUTPUT:
17    RETVAL
18
19void
20make_sv_readonly(sv)
21    SV *sv
22PROTOTYPE: $
23CODE:
24    SvREADONLY_on(sv);
25