Lines Matching refs:pr
208 my %pr;
214 if (defined $time and not defined $pr{$pid}{start}) {
215 $pr{$pid}{start} = $time;
226 my $seq = $pr{$pid}{seq};
231 $pr{$pid}{seq} = $seq;
235 my $seq = $pr{$pid}{seq};
238 $pr{$pid}{seq} = $seq;
239 $pr{$result}{parent} = $pid;
241 $pr{$pid}{end} = $time if defined $time;
247 $pr{$pid}{end} = $time if defined $time;
252 my $seq = $pr{$pid}{seq};
268 my $seq = $pr{$pid}{seq};
281 my @seq = @{$pr{$pid}{seq}};
288 if (defined $pr{$pid}{start} and defined $pr{$pid}{end}) {
289 $elapsed = $pr{$pid}{end} - $pr{$pid}{start};
332 $startpid = (keys %pr)[0];
333 while ($pr{$startpid}{parent}) {
334 $startpid = $pr{$startpid}{parent};
