Beware of the $false in there. Your eval fails because you turned on stricture, but even with my $false; it fails, so that's good. Unfortunately it works too well.
undef $::{FOO} is the same as undef *FOO and that undefined the whole typeglob.
I only want to remove the CODE slot in the typeglob.our $FOO = 'foo'; undef $::{FOO}; print defined $FOO ? 'defined' : 'undef'; __END__ undef
lodin
In reply to Re^2: Removing CODE slot in typeglob / Reversing "use subs ...;"
by lodin
in thread Removing CODE slot in typeglob / Reversing "use subs ...;"
by lodin
For: | Use: | ||
& | & | ||
< | < | ||
> | > | ||
[ | [ | ||
] | ] |