1 | $|=1; | 1 | $|=1; |
---|---|---|---|
2 | print "1..3\n"; | 2 | print "1..3\n"; |
3 | |||
4 | # test for known buggy perls | ||
3 | 5 | ||
4 | use Coro; | 6 | use Coro; |
5 | 7 | ||
6 | print "ok 1\n"; | 8 | print "ok 1\n"; |
7 | 9 | ||
10 | # debian allocates 0.25mb of local variables in Perl_magic_get, | ||
11 | # normal is <<256 bytes. | ||
8 | async { | 12 | async { |
9 | print "ok 2\n"; | 13 | print "ok 2\n"; |
10 | $1 | 14 | $1 |
11 | }->join; | 15 | }->join; |
12 | 16 |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |