… | … | ||
---|---|---|---|
16 | 16 | ||
17 | print "ok 1\n"; | 17 | print "ok 1\n"; |
18 | yield; | 18 | yield; |
19 | 19 | ||
20 | for (11..19) { | 20 | for (11..19) { |
21 | my $x = $q->get; | 21 | my $x = do { local $_; $q->get }; |
22 | print $x == $_-10 ? "ok " : "not ok ", ($_-10)*2+1, "\n"; | 22 | print $x == $_-10 ? "ok " : "not ok ", ($_-10)*2+1, "\n"; |
23 | } | 23 | } |
24 | 24 |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |