X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2Fcluster.pl;h=aef9a4be33e47683453938b76e1ebe655e6aeb05;hb=cc7d21f9962165b2cdfe5c37814d0764740ee511;hp=59ff51782a9a5f5b06bef219ec871a28ab8b9f85;hpb=69ffad66605714e1b188f52c2908c9c9c496772a;p=spider.git

diff --git a/perl/cluster.pl b/perl/cluster.pl
index 59ff5178..aef9a4be 100755
--- a/perl/cluster.pl
+++ b/perl/cluster.pl
@@ -26,9 +26,9 @@ BEGIN {
 	# do some validation of the input
 	die "The directory $root doesn't exist, please RTFM" unless -d $root;
 	die "$root/local doesn't exist, please RTFM" unless -d "$root/local";
-	die "$root/local/DXVars doesn't exist, please RTFM" unless -e "$root/local/DXVars.pm";
+	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