path: root/Bugs/delocalglob

#!./perl
$foo = GOOD;
{ 
    local(*foo) = \$bar;
    $bar = BAR;
    print $foo;
}
print $foo;