| Subject: | Readonly never needs Readonly::XS on perl 5.8 and up |
Readonly::XS contains a reimplementation of functionality already
embedded in perl 5.8 and up. Readonly can easily take benefit from them
in the absence of Readonly. The functions exported from Readonly::XS can
be easily implemented along the lines of this:
if ($] >= 5.008) {
*is_sv_readonly = sub($) { Internals::SvREADONLY($_[0]) };
*make_sv_readonly = sub($) { Internals::SvREADONLY($_[0], 1) };
$XSokay = 1;
}
else {
...
}