Lines Matching refs:pr
206 my %pr;
212 if (defined $time and not defined $pr{$pid}{start}) {
213 $pr{$pid}{start} = $time;
224 my $seq = $pr{$pid}{seq};
229 $pr{$pid}{seq} = $seq;
233 my $seq = $pr{$pid}{seq};
236 $pr{$pid}{seq} = $seq;
237 $pr{$result}{parent} = $pid;
239 $pr{$pid}{end} = $time if defined $time;
245 $pr{$pid}{end} = $time if defined $time;
250 my $seq = $pr{$pid}{seq};
266 my $seq = $pr{$pid}{seq};
279 my @seq = @{$pr{$pid}{seq}};
286 if (defined $pr{$pid}{start} and defined $pr{$pid}{end}) {
287 $elapsed = $pr{$pid}{end} - $pr{$pid}{start};
330 $startpid = (keys %pr)[0];
331 while ($pr{$startpid}{parent}) {
332 $startpid = $pr{$startpid}{parent};
