This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Unshare the shared string gp_file_hek only if it exists in a GP.
authorRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Fri, 22 Dec 2006 11:30:47 +0000 (11:30 +0000)
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Fri, 22 Dec 2006 11:30:47 +0000 (11:30 +0000)
commitc9ce39a9108fcb88216bc67ce14c52154d53f364
tree273de75bbe4424c0a86c60511a70acebfce65c00
parent0c793b6f00b278111ed6958bc7f2b834f3da392c
Unshare the shared string gp_file_hek only if it exists in a GP.
Not doing this will produce invalid frees in the global destruction
process, probably because the empty string will get freed several
times. This should be safe since gp_file_hek is only assigned a
new value with share_hek().

p4raw-id: //depot/perl@29610
gv.c