This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Devel::PPPort: Fix D_PPP_FIX_UTF8_ERRSV macro
authorPali <pali@cpan.org>
Thu, 14 Feb 2019 11:35:23 +0000 (12:35 +0100)
committerTony 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

index 49755ec..e9af174 100644 (file)
@@ -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