This makes PerlIO::encoding's shared library free of any perl caused RW
static data.
package PerlIO::encoding;
use strict;
-our $VERSION = '0.20';
+our $VERSION = '0.21';
our $DEBUG = 0;
$DEBUG and warn __PACKAGE__, " called by ", join(", ", caller), "\n";
}
}
-PerlIO_funcs PerlIO_encode = {
+PERLIO_FUNCS_DECL(PerlIO_encode) = {
sizeof(PerlIO_funcs),
"encoding",
sizeof(PerlIOEncode),
sv_setsv(chk, POPs);
PUTBACK;
#ifdef PERLIO_LAYERS
- PerlIO_define_layer(aTHX_ &PerlIO_encode);
+ PerlIO_define_layer(aTHX_ PERLIO_FUNCS_CAST(&PerlIO_encode));
#endif
POPSTACK;
}