… | … | ||
---|---|---|---|
12 | print "ok 4\n"; | 12 | print "ok 4\n"; |
13 | 13 | ||
14 | { | 14 | { |
15 | my $guard = guard { print "not ok 6\n" }; | 15 | my $guard = guard { print "not ok 6\n" }; |
16 | print "ok 5\n"; | 16 | print "ok 5\n"; |
17 | Guard::cancel $guard; | 17 | $guard->cancel; |
18 | } | 18 | } |
19 | 19 | ||
20 | print "ok 6\n"; | 20 | print "ok 6\n"; |
21 | 21 | ||
22 | { | 22 | { |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |