X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Fop%2Falarm.t;h=8fb92964a3a7d76e5d5e6e9ce6261c4977737627;hb=a1824f2aba8e109cac73756dc271522cdd4a8200;hp=c008737dff351b0c9875c85fd9d32282d74b4aa1;hpb=6ffa69ae0873f45a06f60e385932605e05e60bfa;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/t/op/alarm.t b/t/op/alarm.t
index c008737..8fb9296 100644
--- a/t/op/alarm.t
+++ b/t/op/alarm.t
@@ -45,6 +45,7 @@ $diff = time - $start_time;
 is( $@, "ALARM!\n",             'alarm w/$SIG{ALRM} vs system()' );
 
 {
-    local $TODO = 'Why does system() block alarm() on VMS?' if $^O eq 'VMS';
+    local $TODO = "Why does system() block alarm() on $^O?"
+		if $^O eq 'VMS' || $^O eq'MacOS' || $^O eq 'dos';
     ok( abs($diff - 3) <= 1,   "   right time (waited $diff secs for 3-sec alarm)" );
 }