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
authorTony Cook <tony@develop-help.com>
Wed, 11 Sep 2013 13:13:56 +0000 (23:13 +1000)
committerTony Cook <tony@develop-help.com>
Wed, 11 Sep 2013 04:04:47 +0000 (14:04 +1000)
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: {
     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();
 
     require POSIX;
     my $pending = POSIX::SigSet->new();