-----------------------------------------------------------------
[Please enter your report here]

This problem has been seen on Perl 5.8.3 and 5.8.7.  I assume that
it happens under other versions as well.

If you try to undef the CODE slot of a glob, it only halfway works.
ref(*foo{CODE}) will still show that it is a code reference, and
UNIVERSAL::can still shows that it is a code reference.

This bug causes problems when Apache::Reload and Class::DBI are
used together.

The following code sample demonstrates what I am talking about

--------
#! /usr/bin/perl -l
print "Originally foo() is a " . ref(*foo{CODE});
print "Initializing foo()";
*foo = sub {print "hello"};
print "foo() is now a " . ref(*foo{CODE});
print "According to can, foo is " . main->can("foo");
print "Calling foo()";
foo();

print "Undefining foo()";
$x = *foo;
undef &$x;
print "foo() is now a " . ref(*foo{CODE});
print "According to can, foo is " . main->can("foo");
print "Calling foo()";
foo();

__END__
Originally foo() is a 
Initializing foo()
foo() is now a CODE
According to can, foo is CODE(0x8175b24)
Calling foo()
hello
Undefining foo()
foo() is now a CODE
According to can, foo is CODE(0x8175b24)
Calling foo()
[download]