From 178f59b99e71b19054c927d887fb673510dd252a Mon Sep 17 00:00:00 2001
From: Martin Mares <mj@ucw.cz>
Date: Sat, 19 Jan 2013 20:15:57 +0100
Subject: [PATCH] bex prun: Even more debugging

---
 lib/bin/bex-prun | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/lib/bin/bex-prun b/lib/bin/bex-prun
index ec573c1..755595c 100755
--- 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 ||
-- 
2.39.2