bex prun: Even more debugging

diff --git a/lib/bin/bex-prun b/lib/bin/bex-prun
index ec573c1534f471b43596642bfcfe0c813996ed2a..755595ca496e18abb72a9dd73a9fe7193eaea011 100755 (executable)
--- a/lib/bin/bex-prun
+++ b/lib/bin/bex-prun
@@ -31,7 +31,7 @@ AMEN
 GetOptions(
        "q|queue=s" => \$queue_name,
        "text!" => \$text_mode,
-       "debug!" => \$debug,
+       "debug+" => \$debug,
        "debug-children!" => \$debug_children,
        "p|parallel=i" => \$BEX::Config::max_parallel_jobs,
        "help" => \&usage,
@@ -275,6 +275,7 @@ sub place_slot($) {
                        last;
                }
                my $rpri = $state_to_pri{$host_state{$r->{'Host'}}};
+               print STDERR "I: ... considering ", $r->{'Host'}, " (pri $rpri, lu ", $r->{'LastUpdate'}, ")\n" if $debug > 1;
                next if $rpri > $pri;
 
                if ($rpri < $bestpri ||