X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2Fcluster.pl;h=b33a8b6e0cf81a14832e424182b70a8d2b2453f0;hb=da7476ca7af0722de0cab439f6f4eea3d767daf4;hp=205d2fe7633060eac89f6df4f7d329b775b75e33;hpb=759df8855ee49f596b8b55a95b93a0ca1c9b78b7;p=spider.git

diff --git a/perl/cluster.pl b/perl/cluster.pl
index 205d2fe7..b33a8b6e 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 
@@ -113,7 +113,7 @@ use vars qw(@inqueue $systime $version $starttime $lockfn @outstanding_connects
 
 @inqueue = ();					# the main input queue, an array of hashes
 $systime = 0;					# the time now (in seconds)
-$version = "1.49";				# the version no of the software
+$version = "1.50";				# the version no of the software
 $starttime = 0;                 # the starting time of the cluster   
 #@outstanding_connects = ();     # list of outstanding connects
 @listeners = ();				# list of listeners