This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
ext/POSIX/t/mb.t: Fix osvers= syntax checking
[perl5.git] / ext / POSIX / t / mb.t
index 84de90e..b56e8bc 100644 (file)
@@ -43,7 +43,7 @@ SKIP: {
       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;
+    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);