This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
ext/POSIX/t/mb.t: Skip a test on early HP-UX
authorKarl Williamson <khw@cpan.org>
Fri, 19 Apr 2019 21:33:10 +0000 (15:33 -0600)
committerKarl Williamson <khw@cpan.org>
Fri, 19 Apr 2019 21:59:59 +0000 (15:59 -0600)
This was fixed by the time of 11.31

ext/POSIX/t/mb.t

index b56e8bc..053693e 100644 (file)
@@ -44,7 +44,7 @@ SKIP: {
 
   SKIP: {
     my ($major, $minor, $rest) = $Config{osvers} =~ / (\d+) \. (\d+) .* /x;
-    skip("mblen() broken (at least for c.utf8) on early HP-UX", 1)
+    skip("mblen() broken (at least for c.utf8) on early HP-UX", 2)
         if   $Config{osname} eq 'hpux'
           && $major < 11 || ($major == 11 && $minor < 31);
     fresh_perl_is(
@@ -52,9 +52,9 @@ SKIP: {
       . 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)',
      2, {}, 'mblen() works on UTF-8 characters');
+  }
 }