This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
POSIX/t/mb.t: Skip test on early HP-UX
[perl5.git] / ext / POSIX / t / mb.t
index 25bffe1..84de90e 100644 (file)
@@ -42,11 +42,17 @@ SKIP: {
         'use POSIX; print &POSIX::MB_CUR_MAX',
       qr/[4-6]/, {}, 'MB_CUR_MAX is at least 4 in a UTF-8 locale');
 
+  SKIP: {
+    my ($major, $minor, $rest) = $Config{osvers} =~ / (\d+) \. (\d+) \. .* /x;
+    skip("mblen() broken (at least for c.utf8) on early HP-UX", 1)
+        if   $Config{osname} eq 'hpux'
+          && $major < 11 || ($major == 11 && $minor < 31);
     fresh_perl_is(
         'use POSIX; print &POSIX::mblen("'
       . I8_to_native("\x{c3}\x{28}")
       . '", 2)',
       -1, {}, 'mblen() recognizes invalid multibyte characters');
+    }
 
     fresh_perl_is(
      'use POSIX; print &POSIX::mblen("\N{GREEK SMALL LETTER SIGMA}", 2)',