This is a live mirror of the Perl 5 development currently hosted at
https://github.com/perl/perl5
https://perl5.git.perl.org
/
perl5.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
beaf1ce
)
Devel::PPPort: Fix D_PPP_FIX_UTF8_ERRSV macro
author
Pali
<pali@cpan.org>
Thu, 14 Feb 2019 11:35:23 +0000
(12:35 +0100)
committer
Tony Cook
<tony@develop-help.com>
Wed, 20 Feb 2019 04:26:46 +0000
(15:26 +1100)
It should use errsv value from passed argument.
dist/Devel-PPPort/parts/inc/mess
patch
|
blob
|
blame
|
history
diff --git
a/dist/Devel-PPPort/parts/inc/mess
b/dist/Devel-PPPort/parts/inc/mess
index
49755ec
..
e9af174
100644
(file)
--- 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