This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
don't taint $$ determined by getpid()
authorZefram <zefram@fysh.org>
Sat, 25 Feb 2012 20:32:09 +0000 (20:32 +0000)
committerZefram <zefram@fysh.org>
Sat, 25 Feb 2012 20:38:12 +0000 (20:38 +0000)
commit19db9fb7213e8d346c88f2b573e378f35d81ffcf
tree60e83adf4deb9104d21bb3c3ec71b04b9fc65c8e
parente0f138939ac28fffc7b06bea23950f5dd6a72f37
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
t/op/taint.t