perl5.git.perl.org Git - perl5.git/commit

This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5

https://perl5.git.perl.org / perl5.git / commit

author	Father Chrysostomos <sprout@cpan.org>
	Sun, 27 Oct 2013 12:52:09 +0000 (05:52 -0700)
committer	Father Chrysostomos <sprout@cpan.org>
	Mon, 28 Oct 2013 23:15:08 +0000 (16:15 -0700)
commit	4639d557ab77c475c9938688efe6b61bedcecf8b
tree	d83a6af6329a191f657806a0b4c1054d08b09583	tree \| snapshot
parent	d456e3f4aa9f137527feb9abf07e9111b6205786	commit \| diff

Make PL_hintgv refcounted

Otherwise one can free it (by deleting the *^H glob) and
cause a crash:

$ perl -e 'delete $::{"\cH"}; ${^OPEN}=foo'
Segmentation fault: 11

That happens because PL_hintgv points to a freed scalar, and
GvHV(PL_hintgv) ends up trying to access nonexistent fields.

perl.c		diff \| blob \| blame \| history
sv.c		diff \| blob \| blame \| history
t/op/magic.t		diff \| blob \| blame \| history

Unnamed repository; edit this file 'description' to name the repository.

RSS Atom