Lines Matching refs:pgid
384 my $pgid = shift;
385 my $pg = _pg_get($self, $pgid) or return;
463 my $pgid = shift;
464 my $pg = _pg_get($self, $pgid) or return;
876 my $pgid = shift;
878 return unless defined $pgid;
881 return ($pgtree->{$pgid});
1051 foreach my $pgid (keys %$pgtree) {
1052 next if $pgid == $ROOT_ID;
1053 my $pg = $pgtree->{$pgid};
1178 foreach my $pgid (keys %$pgtree) {
1179 my $pg = $pgtree->{$pgid};
1192 foreach my $pgid (keys %$pgtree) {
1193 my $pg = $pgtree->{$pgid};
1282 foreach my $pgid (keys %$pgtree1) {
1283 my $pg1 = $pgtree1->{$pgid};
1284 my $pg2 = $pgtree2->{$pgid};
1338 my $pgid = shift;
1343 return ($mod->{$pgid}->{hardware}) if $use_old_kstats;
1345 my @instances = grep { $_->{$id_field} == $pgid }
1346 values(%{$mod->{$pgid}});
1558 foreach my $pgid (keys %$pgtree) {
1559 my $pg = $pgtree->{$pgid};
1572 next unless $cpudata->{pg_id} == $pgid;