fix modules search path in update_sysop.pl

This means it will work even if not called from /spider/perl.

diff --git a/Changes b/Changes
index fa558299536e1f754fb1731cf8ad1d2e70387d55..e921da8dadd143aca27e8a8b391a505fa28f96e4 100644 (file)
--- a/Changes
+++ b/Changes
@@ -1,3 +1,9 @@
+22Apr20=======================================================================
+1. Fix the module search path in update_sysop.pl
+21Apr20=======================================================================
+1. Finally fix the "actually tranmit" any output (like from 'logout' files)
+   to users before disconnecting. This also means that disconnecting nodes
+   now receive the (totally redundant, but hey) PC39 reason for disconnection.
 20Apr20=======================================================================
 1. Speed up sh/log (including chat, rcmd, ann etc) that search the system
    log files, by removing a completely redundant subsystem and also leveraging

diff --git a/perl/update_sysop.pl b/perl/update_sysop.pl
index 666a7d5d4fd160e5d7f284b6ce8408ec16cad2ae..74d6812ab6f6749f4cc9ac6629dfdb769fc83bc7 100755 (executable)
--- a/perl/update_sysop.pl
+++ b/perl/update_sysop.pl
@@ -19,6 +19,7 @@ BEGIN {
        $root = "/spider"; 
        $root = $ENV{'DXSPIDER_ROOT'} if $ENV{'DXSPIDER_ROOT'};
 
+    unshift @INC, "$root/perl"; # this IS the right way round!
        unshift @INC, "$root/local";
 }