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	Zefram <zefram@fysh.org>
	Sat, 25 Feb 2012 20:32:09 +0000 (20:32 +0000)
committer	Zefram <zefram@fysh.org>
	Sat, 25 Feb 2012 20:38:12 +0000 (20:38 +0000)
commit	19db9fb7213e8d346c88f2b573e378f35d81ffcf
tree	60e83adf4deb9104d21bb3c3ec71b04b9fc65c8e	tree \| snapshot
parent	e0f138939ac28fffc7b06bea23950f5dd6a72f37	commit \| diff

don't taint $$ determined by getpid()

Reading $$ in a tainted expression was tainting the internal sv_setiv()
on $$. Since the value being set came directly from getpid(), it's
always safe, so override the tainting there. Fixes [perl #109688].

mg.c		diff \| blob \| blame \| history
t/op/taint.t		diff \| blob \| blame \| history

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

RSS Atom