Merge pull request #130 from khwilliamson/new_perls

New perls
dankogai · Feb 16, 2018 · d1ffca5 · d1ffca5
2 parents 03aab5e + cfaedb2
commit d1ffca5
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/Encode.xs b/Encode.xs
@@ -387,7 +387,7 @@ strict_utf8(pTHX_ SV* sv)
 }
 
 /* Modern perls have the capability to do this more efficiently and portably */
-#ifdef is_utf8_string_loc_flags
+#ifdef utf8n_to_uvchr_msgs
 # define CAN_USE_BASE_PERL
 #endif
 
@@ -533,7 +533,7 @@ process_utf8(pTHX_ SV* dst, U8* s, U8* e, SV *check_sv,
 
 #else   /* Use code for earlier perls */
 
-        PERL_UNUSED_VAR(flags);
+        ((void)sizeof(flags));  /* Avoid compiler warning */
 
         if (UTF8_IS_INVARIANT(*s)) {
             *d++ = *s++;