XS.xs   [plain text]

=for gpg
-----BEGIN PGP SIGNED MESSAGE-----
Hash: SHA1

=cut

#include "EXTERN.h"
#include "perl.h"
#include "XSUB.h"

#include "ppport.h"


MODULE = Readonly::XS		PACKAGE = Readonly::XS		

int
is_sv_readonly(sv)
    SV *sv
PROTOTYPE: $
CODE:
    RETVAL = SvREADONLY(sv);
OUTPUT:
    RETVAL

void
make_sv_readonly(sv)
    SV *sv
PROTOTYPE: $
CODE:
    SvREADONLY_on(sv);

=begin gpg

-----BEGIN PGP SIGNATURE-----
Version: GnuPG v1.2.1 (GNU/Linux)

iD8DBQE+wOWGY96i4h5M0egRAjBaAKDvEihLkvuJZv3zqbzaa09JHmbLGACaA0di
jJLNeedS+HAADlX0o8Nl8tA=
=zZ/c
-----END PGP SIGNATURE-----

=end gpg

=cut