Change 16360: Make op/alarm.t pass

Change 16360 by pudge@pudge-mobile on 2002/05/03 01:55:27

	Make op/alarm.t pass

Affected files ...

.... //depot/macperl/t/op/alarm.t#2 edit

Differences ...

==== //depot/macperl/t/op/alarm.t#2 (text) ====
Index: perl/t/op/alarm.t
--- perl/t/op/alarm.t.~1~	Thu May  2 20:00:05 2002
+++ perl/t/op/alarm.t	Thu May  2 20:00:05 2002
@@ -45,6 +45,7 @@
 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';
     ok( abs($diff - 3) <= 1,   "   right time (waited $diff secs for 3-sec alarm)" );
 }
End of Patch.