Fixed directory name bugs in `bex queue ls'

diff --git a/lib/bin/queue b/lib/bin/queue
index eacecc1c9586acf0e5b797cd761557cc31c82ea1..1ebca3a388055373f4c79225343768d542620f70 100755 (executable)
--- 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";
                }
        }