Searched refs:ppid2 (Results 1 – 2 of 2) sorted by relevance
31 my $ppid2 : shared = 0;33 new threads( sub { ($pid2, $ppid2) = ($$, getppid()); } ) -> join();48 …isnt($ppid, $ppid2, "getppid() in a thread is different from the parent on this non-POSIX system");51 is($ppid, $ppid2, 'getppid() in a thread is the same as in the parent');
105 my $ppid2 = getppid();106 print $w "$how,$ppid1,$ppid2\n";