15 my $have_alarm = $Config{d_alarm};
23 # used to be a test for $*
72 # used to be a test for $*
73 ok("ab\ncd\n" =~ /^cd/m);
76 # Even with the alarm() OS/390 and BS2000 can't manage these tests
77 # (Perl just goes into a busy loop, luckily an interruptable one)
78 todo_skip('busy loop - compiler bug?', 2)
79 if $^O eq 'os390' or $^O eq 'posix-bc';
81 # [ID ] tests 25..26 may loop
85 ok(!/G.F$/, 'bug 20010618.006');
86 ok(!/[F]F$/, 'bug 20010618.006');