Re^2: Exported subroutine redefine

[ribasushi]

in reply to Re: Exported subroutine redefine
in thread Exported subroutine redefine

I just ended up walking the entire symbol table, which turned out to be a trivial subroutine. Please let me know if I am doing something horribly wrong (the justification can be found in the big picture)

    _redef();
    sub _redef {
        my $parent = shift || '::';
        for my $ns (grep /^\w+::/, keys %{$parent}) {
            $ns = $parent . $ns;
            _redef($ns) unless $ns eq '::main::';
            for my $sub (keys %redef) {
                *{$ns . $sub} = $redef{$sub} if (exists ${$ns}{$sub});
            }
        }
    }

[joey]

This is really handy (and absolute evil of course). I find that it's a good idea to also check that the function you're replaceing not only has the same name, but is truely a pointer to the same function. Just a matter of comparing that \&{${$ns}{$sub}} == $origsub , where $origsub is a pointer to the function you want to replace.