fix check for local_cmd

[spider.git] / perl / cluster.pl

diff --git a/perl/cluster.pl b/perl/cluster.pl
index 205d2fe7633060eac89f6df4f7d329b775b75e33..aef9a4be33e47683453938b76e1ebe655e6aeb05 100755 (executable)
--- 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