diff options
author | Pali <pali@cpan.org> | 2019-02-14 12:35:23 +0100 |
---|---|---|
committer | Tony Cook <tony@develop-help.com> | 2019-02-20 15:26:46 +1100 |
commit | 18d728ac3b38ca46431b72e44a2249e1cd3782a2 (patch) | |
tree | a987feb3e81e3c2762c5edea8f39cfadeb4d3263 | |
parent | beaf1ce98b6eb586863b80717054da3a6368307d (diff) | |
download | perl-18d728ac3b38ca46431b72e44a2249e1cd3782a2.tar.gz |
Devel::PPPort: Fix D_PPP_FIX_UTF8_ERRSV macro
It should use errsv value from passed argument.
-rw-r--r-- | dist/Devel-PPPort/parts/inc/mess | 4 |
1 files 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 |