perl 5.0 alpha 4
[perl.git] / bar
1 #!./perl
2
3 $o = {A,1};
4 $r = \($o->{A});
5 print $$r;
6 $$r = foo;
7 print $$r;