In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/0987d6f3c0887ebe1a7db4d50e4827861bbb34e7?hp=e4e95921cd0fd085a5edf35ae358cd213529e55a>
- Log ----------------------------------------------------------------- commit 0987d6f3c0887ebe1a7db4d50e4827861bbb34e7 Author: Tony Cook <[email protected]> Date: Mon Oct 27 14:35:53 2014 +1100 PerlIO_list_push() accepts a non-const PerlIO_funcs pointer but under -DPERL_GLOBAL_STRUCT_PRIVATE, most PerlIO_funcs objects and pointers are const, so cast to match the function parameter. This was broken by f814d560e84f which changed from looking up the layer by the name in tab (or osLayer) to adding those directly. ----------------------------------------------------------------------- Summary of changes: perlio.c | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/perlio.c b/perlio.c index b163849..7eac37f 100644 --- a/perlio.c +++ b/perlio.c @@ -1003,7 +1003,7 @@ PerlIO_default_buffer(pTHX_ PerlIO_list_t *av) tab = &PerlIO_stdio; #endif PerlIO_debug("Pushing %s\n", tab->name); - PerlIO_list_push(aTHX_ av, tab, &PL_sv_undef); + PerlIO_list_push(aTHX_ av, (PerlIO_funcs *)tab, &PL_sv_undef); } SV * @@ -1091,7 +1091,8 @@ PerlIO_default_layers(pTHX) PerlIO_define_layer(aTHX_ PERLIO_FUNCS_CAST(&PerlIO_utf8)); PerlIO_define_layer(aTHX_ PERLIO_FUNCS_CAST(&PerlIO_remove)); PerlIO_define_layer(aTHX_ PERLIO_FUNCS_CAST(&PerlIO_byte)); - PerlIO_list_push(aTHX_ PL_def_layerlist, osLayer, &PL_sv_undef); + PerlIO_list_push(aTHX_ PL_def_layerlist, (PerlIO_funcs *)osLayer, + &PL_sv_undef); if (s) { PerlIO_parse_layers(aTHX_ PL_def_layerlist, s); } -- Perl5 Master Repository
