perl 5.0 alpha 6
[perl.git] / Bugs / delocalglob
1 #!./perl
2 $foo = GOOD;
3
4     local(*foo) = \$bar;
5     $bar = BAR;
6     print $foo;
7 }
8 print $foo;