From cc7d21f9962165b2cdfe5c37814d0764740ee511 Mon Sep 17 00:00:00 2001
From: minima <minima>
Date: Sun, 27 Jan 2002 17:07:25 +0000
Subject: [PATCH] fix check for local_cmd

---
 perl/cluster.pl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/perl/cluster.pl b/perl/cluster.pl
index 205d2fe7..aef9a4be 100755
--- a/perl/cluster.pl
+++ b/perl/cluster.pl
@@ -28,7 +28,7 @@ BEGIN {
 	die "$root/local doesn't exist, please RTFM" unless -d "$root/local";
 	die "$root/local/DXVars.pm doesn't exist, please RTFM" unless -e "$root/local/DXVars.pm";
 	
-	mkdir "$root/local_cmd" unless -e "$root/local_cmd";
+	mkdir "$root/local_cmd", 0777 unless -d "$root/local_cmd";
 	
 
 	# try to create and lock a lockfile (this isn't atomic but 
-- 
2.34.1