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