147 |
|
|
148 |
my $debug_proc; |
my $debug_proc; |
149 |
|
|
150 |
warn 'pids: ', dump( $pids ); |
warn 'pids: ', dump( $pids ) if $debug; |
151 |
foreach my $name ( keys %$pids ) { |
foreach my $name ( keys %$pids ) { |
152 |
my $pid = $pids->{$name} || next; |
my $pid = $pids->{$name} || next; |
153 |
|
|
167 |
push @rows, ( $name => $html ); |
push @rows, ( $name => $html ); |
168 |
} |
} |
169 |
|
|
170 |
warn 'static_pids: ', dump( $static_pids ); |
warn 'static_pids: ', dump( $static_pids ) if $debug; |
171 |
foreach my $pid ( keys %$static_pids ) { |
foreach my $pid ( keys %$static_pids ) { |
172 |
my $path = $static_pids->{$pid}; |
my $path = $static_pids->{$pid}; |
173 |
if ( -d "/proc/$pid" ) { |
if ( -d "/proc/$pid" ) { |