Make sure PerlIO::via doesn't leave its old GV's hanging
authorMarcus Holland-Moritz <mhx-perl@gmx.net>
Sat, 8 Nov 2008 18:31:09 +0000 (18:31 +0000)
committerMarcus Holland-Moritz <mhx-perl@gmx.net>
Sat, 8 Nov 2008 18:31:09 +0000 (18:31 +0000)
commit8d06e08c4f7bbcd6ede7e25da37c216be42278e5
treef92680fdb8074bd56b656e9237f5fffb9bd45723
parent2376d97dd5675c65de55efc384814387b6c9a63f
Make sure PerlIO::via doesn't leave its old GV's hanging
in the stash they were created in. Steal the idea from
IO::File to just delete the stash entry after creating
the GV.
This fixes perl #59268.

p4raw-id: //depot/perl@34779
ext/PerlIO/via/via.pm
ext/PerlIO/via/via.xs