-$x = 0;
-{
- is($x, 0, 'start');
- {
- add(0, 1);
- is($x, 0, '1 didn\'t run');
- }
- is($x, 1, '1 ran');
-}
-is($x, 1, 'end');
-
-$x = 0;
-{
- is($x, 0, 'start');
- local $_ = 3;
- is($_, 3, '$_ has the right value');
- {
- add(0, 1);
- is($_, 3, '$_ has the right value');
- local $_ = 7;
- is($_, 7, '$_ has the right value');
- is($x, 0, '1 didn\'t run');
- }
- is($x, 1, '1 ran');
- is($_, 3, '$_ has the right value');
-}
-is($x, 1, 'end');
-