This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Fix unused variable warning in 5.30
authorNicolas R <atoomic@cpan.org>
Fri, 14 Jun 2019 15:05:43 +0000 (09:05 -0600)
committerNicolas R <atoomic@cpan.org>
Fri, 21 Jun 2019 20:26:59 +0000 (16:26 -0400)
Fixes #99

(cherry picked from commit 4aa658c84dee2b1ea29f2683151bab5543da6c6e)
Signed-off-by: Nicolas R <atoomic@cpan.org>
dist/Devel-PPPort/parts/inc/uv

index 9e27c62..11b8370 100644 (file)
@@ -133,7 +133,9 @@ utf8_to_uvchr_buf(pTHX_ const U8 *s, const U8 *send, STRLEN *retlen)
     bool overflows = 0;
     const U8 *cur_s = s;
     const bool do_warnings = ckWARN_d(WARN_UTF8);
+#    if { VERSION < 5.26.0 } && ! defined(EBCDIC)
     STRLEN overflow_length = 0;
+#    endif
 
     if (send > s) {
         curlen = send - s;