| 1 | BEGIN { | ||
|---|---|---|---|
| 2 | unless (exists $SIG{USR1}) { | ||
| 3 | print <<EOF; | ||
| 4 | 1..0 # SKIP Broken perl detected, skipping tests. | ||
| 5 | EOF | ||
| 6 | exit 0; | ||
| 7 | } | ||
| 8 | } | ||
| 9 | |||
| 1 | $|=1; | 10 | $|=1; |
| 2 | print "1..4\n"; | 11 | print "1..4\n"; |
| 3 | 12 | ||
| 4 | # note: the fourth test falls into an infinite loop in older versions of Coro | 13 | # note: the fourth test falls into an infinite loop in older versions of Coro |
| 5 | 14 |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |