From 21f685017fcf4ea6d2dce219c033b3e6f530589a Mon Sep 17 00:00:00 2001
From: Martin Mares <mj@ucw.cz>
Date: Mon, 31 Oct 2011 10:00:38 +0100
Subject: [PATCH] bprun: Set window title

---
 bprun | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/bprun b/bprun
index 3c36ce9..47ca569 100755
--- a/bprun
+++ b/bprun
@@ -38,7 +38,7 @@ while (%running || @machines) {
 		my $mach = shift @machines;
 		$queue->scan($mach) or next;
 		print "$mach: START\n";
-		system 'screen', './brun', "--status-fifo=$fifo_name", $mach;
+		system 'screen', '-t', $mach, './brun', "--status-fifo=$fifo_name", $mach;
 		!$? or print "$mach: Failed to run!\n";
 		$running{$mach} = 'START';
 		next;
-- 
2.39.2