From: Martin Mares <mj@ucw.cz>
Date: Wed, 15 Feb 2012 22:49:20 +0000 (+0100)
Subject: Fixed directory name bugs in `bex queue ls'
X-Git-Tag: v3.0~15
X-Git-Url: http://mj.ucw.cz/gitweb/?a=commitdiff_plain;h=fc4b454678b2a333a6b3597750bd8b872ed867db;p=bex.git

Fixed directory name bugs in `bex queue ls'
---

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";
 		}
 	}