| 1 | BEGIN { | ||
|---|---|---|---|
| 2 | if ($^O =~ /mswin32/i) { | ||
| 3 | print <<EOF; | ||
| 4 | 1..0 # Perl binary broken, skipping test. Upgrading to a working perl is advised. | ||
| 5 | EOF | ||
| 6 | exit 0; | ||
| 7 | } | ||
| 8 | } | ||
| 9 | |||
| 1 | BEGIN { $| = 1; print "1..5\n"; } | 10 | BEGIN { $| = 1; print "1..5\n"; } |
| 2 | 11 | ||
| 3 | use Coro; | 12 | use Coro; |
| 4 | 13 | ||
| 5 | print "ok 1\n"; | 14 | print "ok 1\n"; |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |