in reply to OO-call bug uncovered & autovivified functions: defined? exists?

On p5p, where this is already being discussed, Rick Delaney presented a simpler snippet that demonstrates the problem.

package F; sub foo { "foo" } package G; @ISA = qw(F); print \&foo; # creates entry in G's symbol table package main; my $o = bless [],"G"; print $o->foo;
CODE(0x8149624) Undefined subroutine &G::foo called at - line 9.

I'm not sure why perl-diddler didn't post this much more readable snippet...