Comparing Guard/t/01_scoped.t (file contents):
Revision 1.2 by root, Sat Dec 13 18:34:18 2008 UTC vs.
Revision 1.3 by root, Sat Dec 13 19:14:58 2008 UTC
| … | |
… | |
| 2 | |
2 | |
| 3 | use Guard; |
3 | use Guard; |
| 4 | |
4 | |
| 5 | print "ok 1\n"; |
5 | print "ok 1\n"; |
| 6 | |
6 | |
|
|
7 | our $global = 0; |
|
|
8 | |
| 7 | { |
9 | { |
| 8 | scope_guard { |
10 | scope_guard { |
| 9 | die $global; |
|
|
| 10 | print "ok 3\n" |
11 | print "ok 3\n" |
| 11 | }; |
12 | }; |
| 12 | local $global = 1; |
13 | local $global = 1; |
| 13 | print "ok 2\n"; |
14 | print "ok 2\n"; |
| 14 | } |
15 | } |
Diff Legend
| – |
Removed lines |
| + |
Added lines |
| < |
Changed lines |
| > |
Changed lines |
