Merge pull request #130 from khwilliamson/new_perls
New perls
Dan Kogai authored 6 years ago
GitHub committed 6 years ago
386 | 386 | } |
387 | 387 | |
388 | 388 | /* Modern perls have the capability to do this more efficiently and portably */ |
389 | #ifdef is_utf8_string_loc_flags | |
389 | #ifdef utf8n_to_uvchr_msgs | |
390 | 390 | # define CAN_USE_BASE_PERL |
391 | 391 | #endif |
392 | 392 | |
532 | 532 | |
533 | 533 | #else /* Use code for earlier perls */ |
534 | 534 | |
535 | PERL_UNUSED_VAR(flags); | |
535 | ((void)sizeof(flags)); /* Avoid compiler warning */ | |
536 | 536 | |
537 | 537 | if (UTF8_IS_INVARIANT(*s)) { |
538 | 538 | *d++ = *s++; |