t/op/sigdispatch.t: SKIP, not TODO

diff --git a/t/op/sigdispatch.t b/t/op/sigdispatch.t
index 7457ccb..12b2d5e 100644 (file)
--- a/t/op/sigdispatch.t
+++ b/t/op/sigdispatch.t
@@ -98,8 +98,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 {