diff options
author | Daniel Dragan <bulk88@hotmail.com> | 2015-01-05 01:27:11 -0500 |
---|---|---|
committer | Father Chrysostomos <sprout@cpan.org> | 2015-01-05 18:01:39 -0800 |
commit | 8f6555bff69aad4eb533180c58c453f210dab66b (patch) | |
tree | 2405b447b341b35b44826a4bdaad6049c4787135 /ext/PerlIO-encoding | |
parent | 93503762a3ac8a81eb76c0de14dcd915534751a0 (diff) | |
download | perl-8f6555bff69aad4eb533180c58c453f210dab66b.tar.gz |
const a PERLIO vtable in PerlIO::encoding
This makes PerlIO::encoding's shared library free of any perl caused RW
static data.
Diffstat (limited to 'ext/PerlIO-encoding')
-rw-r--r-- | ext/PerlIO-encoding/encoding.pm | 2 | ||||
-rw-r--r-- | ext/PerlIO-encoding/encoding.xs | 4 |
2 files changed, 3 insertions, 3 deletions
diff --git a/ext/PerlIO-encoding/encoding.pm b/ext/PerlIO-encoding/encoding.pm index 47ad946c23..4cff76d870 100644 --- a/ext/PerlIO-encoding/encoding.pm +++ b/ext/PerlIO-encoding/encoding.pm @@ -1,7 +1,7 @@ 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"; diff --git a/ext/PerlIO-encoding/encoding.xs b/ext/PerlIO-encoding/encoding.xs index d41227cba2..03b8850b12 100644 --- a/ext/PerlIO-encoding/encoding.xs +++ b/ext/PerlIO-encoding/encoding.xs @@ -602,7 +602,7 @@ PerlIOEncode_write(pTHX_ PerlIO *f, const void *vbuf, Size_t count) } } -PerlIO_funcs PerlIO_encode = { +PERLIO_FUNCS_DECL(PerlIO_encode) = { sizeof(PerlIO_funcs), "encoding", sizeof(PerlIOEncode), @@ -666,7 +666,7 @@ BOOT: 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; } |