move more output to debug

diff --git a/lib/PXElator/httpd.pm b/lib/PXElator/httpd.pm
index 23192b1..2affd63 100644 (file)
--- a/lib/PXElator/httpd.pm
+++ b/lib/PXElator/httpd.pm
@@ -147,7 +147,7 @@ sub get_request {
 
                my $debug_proc;
 
-               warn 'pids: ', dump( $pids );
+               warn 'pids: ', dump( $pids ) if $debug;
                foreach my $name ( keys %$pids ) {
                        my $pid = $pids->{$name} || next;
 
@@ -167,7 +167,7 @@ sub get_request {
                        push @rows, ( $name => $html );
                }
 
-               warn 'static_pids: ', dump( $static_pids );
+               warn 'static_pids: ', dump( $static_pids ) if $debug;
                foreach my $pid ( keys %$static_pids ) {
                        my $path = $static_pids->{$pid};
                        if ( -d "/proc/$pid" ) {