From fc4b454678b2a333a6b3597750bd8b872ed867db Mon Sep 17 00:00:00 2001
From: Martin Mares <mj@ucw.cz>
Date: Wed, 15 Feb 2012 23:49:20 +0100
Subject: [PATCH] Fixed directory name bugs in `bex queue ls'

---
 lib/bin/queue | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/lib/bin/queue b/lib/bin/queue
index eacecc1..1ebca3a 100755
--- a/lib/bin/queue
+++ b/lib/bin/queue
@@ -35,7 +35,9 @@ if ($op eq 'init') {
 } elsif ($op eq 'ls' && @ARGV == 0) {
 	opendir D, $BEX::Config::home or die "Cannot read BEX home directory\n";
 	for my $q (sort readdir D) {
-		if (-d $q && -d "$q/hosts" && -d "$q/jobs") {
+		next if $q =~ /^\./;
+		my $d = $BEX::Config::home . '/' . $q;
+		if (-d $d && -d "$d/hosts" && -d "$d/jobs") {
 			print "$q\n";
 		}
 	}
-- 
2.39.2