In perl.git, the branch blead has been updated <https://perl5.git.perl.org/perl.git/commitdiff/18d728ac3b38ca46431b72e44a2249e1cd3782a2?hp=beaf1ce98b6eb586863b80717054da3a6368307d>
- Log ----------------------------------------------------------------- commit 18d728ac3b38ca46431b72e44a2249e1cd3782a2 Author: Pali <[email protected]> Date: Thu Feb 14 12:35:23 2019 +0100 Devel::PPPort: Fix D_PPP_FIX_UTF8_ERRSV macro It should use errsv value from passed argument. ----------------------------------------------------------------------- Summary of changes: dist/Devel-PPPort/parts/inc/mess | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/dist/Devel-PPPort/parts/inc/mess b/dist/Devel-PPPort/parts/inc/mess index 49755ec389..e9af1740ab 100644 --- a/dist/Devel-PPPort/parts/inc/mess +++ b/dist/Devel-PPPort/parts/inc/mess @@ -52,8 +52,8 @@ NEED_vmess # if ( { VERSION >= 5.8.0 } && { VERSION < 5.8.9 } ) || ( { VERSION >= 5.9.0 } && { VERSION < 5.10.1 } ) # define D_PPP_FIX_UTF8_ERRSV(errsv, sv) \ STMT_START { \ - if (sv != ERRSV) \ - SvFLAGS(ERRSV) = (SvFLAGS(ERRSV) & ~SVf_UTF8) | \ + if (sv != errsv) \ + SvFLAGS(errsv) = (SvFLAGS(errsv) & ~SVf_UTF8) | \ (SvFLAGS(sv) & SVf_UTF8); \ } STMT_END # else -- Perl5 Master Repository
