bprun: Set window title

diff --git a/bprun b/bprun
index 3c36ce9e9f5a285487fa74fb02c6babf3bf21f10..47ca56962eb3d3c944e2e3c79997dba5757aa06f 100755 (executable)
--- 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;