I've done this before. I usually end up creating a new glob, with either Symbol's gensym() or my $glob = do { local *GLOB };. Then I copy every slot from the old glob, except CODE of course, into the new glob, then overwrite the old symbol table entry with the new glob.

I have code somewhere for this; Devel::TraceMethods perhaps. It probably belongs in its own module somewhere.