This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
[perl #88814] sigdispatch.t work on openbsd 5.2
[perl5.git] / t / op / sigdispatch.t
index 1ce047d..1105504 100644 (file)
@@ -42,8 +42,9 @@ is($@, "Alarm!\n", 'after the second loop');
 SKIP: {
     skip('We can\'t test blocking without sigprocmask', 17)
        if is_miniperl() || !$Config{d_sigprocmask};
-    skip('This doesn\'t work on $^O threaded builds RT#88814', 17)
-        if $^O =~ /openbsd|cygwin/ && $Config{useithreads};
+    skip("This doesn\'t work on $^O threaded builds RT#88814", 17)
+        if ($^O =~ /cygwin/ || $^O eq "openbsd" && $Config{osvers} < 5.2)
+           && $Config{useithreads};
 
     require POSIX;
     my $pending = POSIX::SigSet->new();