regcomp.c: Rename a variable

[perl5.git] / t / op / sigdispatch.t

diff --git a/t/op/sigdispatch.t b/t/op/sigdispatch.t
index 7457ccb..242fb8e 100644 (file)
--- a/t/op/sigdispatch.t
+++ b/t/op/sigdispatch.t
@@ -3,6 +3,7 @@
 # We assume that TestInit has been used.
 
 BEGIN {
+      chdir 't' if -d 't';
       require './test.pl';
 }
 
@@ -43,8 +44,9 @@ 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 =~ /cygwin/ || $^O eq "openbsd" && $Config{osvers} < 5.2)
-           && $Config{useithreads};
+        if ($^O =~ /cygwin/ && $Config{useithreads});
+    skip("This doesn\'t work on $^O version $Config{osvers} RT#88814", 17)
+        if ($^O eq "openbsd" && $Config{osvers} < 5.2);
 
     require POSIX;
     my $pending = POSIX::SigSet->new();
@@ -98,8 +100,8 @@ TODO:
        # tests on production releases
        skip("some OSes hang here", 3) if (int($]*1000) & 1) == 0;
     
-  TODO: {
-       local $::TODO = "Issues on Android" if $^O =~ /android/;
+  SKIP: {
+       skip("Issues on Android", 3) if $^O =~ /android/;
        my $action = POSIX::SigAction->new(sub { $gotit--, die }, POSIX::SigSet->new, 0);
        POSIX::sigaction(&POSIX::SIGALRM, $action);
        eval {