Remove obsolete EXPERIMENTAL_

[buildfarm-client.git] / run_branches

diff --git a/run_branches b/run_branches
index 7506a52ec5a6b9762b9aad3ed1d4a5cb44934288..1ef72e544fed48d52646825e0f04ae0167c0b15b 100755 (executable)
--- a/run_branches
+++ b/run_branches
@@ -40,7 +40,7 @@ my %CALLED = (
     argv => [@ARGV],   # get a copy!
 );
 chdir $RealBin or die "$0: Can't chdir to '$RealBin': $!\n";
     argv => [@ARGV],   # get a copy!
 );
 chdir $RealBin or die "$0: Can't chdir to '$RealBin': $!\n";

-say "Changed working directory to '$RealBin'" if -t;
+#say "Changed working directory to '$RealBin'" if -t;

 
 my %branch_last;
 my $run_build = './run_build';
 
 my %branch_last;
 my $run_build = './run_build';


@@ -159,15 +159,12 @@ elsif ($EximBuild::conf{branches_to_build} =~
 
 @branches = apply_throttle(@branches);
 
 
 @branches = apply_throttle(@branches);
 

-my $global_lock_dir =
-    $EximBuild::conf{global_lock_dir}
-  ||$EximBuild::conf{build_root}
-  ||'';
+my $global_lock_dir = $EximBuild::conf{global_lock_dir}
+  // $EximBuild::conf{build_root}
+  // die "$0: need global_lock_dir\n";

 
 

-unless ($global_lock_dir && -d $global_lock_dir)
-{
-    die "no global lock directory: $global_lock_dir";
-}
+die "$0: need r/w permissions for directory '$global_lock_dir'\n"
+    if not -d -w $global_lock_dir;

 
 # acquire the lock
 
 
 # acquire the lock