force node to chir to $root

diff --git a/Changes b/Changes
index ba3713da0d81064e18dd74088cf38cf2fb217e94..44ac206ccebbf98fb63082a16d54153bd1c6ff57 100644 (file)
--- a/Changes
+++ b/Changes
@@ -1,5 +1,6 @@
 11Dec21=======================================================================
 1. Removed dependency on perl Git package.
+2. Force code to change directory to $DXSPIDER_ROOT || '/spider'.
 10Dec21=======================================================================
 1. Fix the output of set/dxgrid, set/usstate and set/dxcq or set/dxitu to how
    it was always supposed to be since 2003.

diff --git a/perl/cluster.pl b/perl/cluster.pl
index b942b44f9515ee034e22679e9a328c40f2f0820c..db05800f9c305216aa06bcec7e707930ffb71c96 100755 (executable)
--- a/perl/cluster.pl
+++ b/perl/cluster.pl
@@ -90,6 +90,7 @@ BEGIN {
        
 }
 
+
 use DXVars;
 use SysVar;
 
@@ -478,6 +479,8 @@ sub setup_start
        #
        #############################################################
 
+       chdir $root;
+       
        $starttime = $systime = time;
        $systime_days = int ($systime / 86400);
        $systime_daystart = $systime_days * 86400;