From 4a47ee8996cd52566856a06476eb74aea02d68ac Mon Sep 17 00:00:00 2001
From: Dirk Koopman <djk@tobit.co.uk>
Date: Wed, 22 Apr 2020 18:43:28 +0100
Subject: [PATCH] fix modules search path in update_sysop.pl

This means it will work even if not called from /spider/perl.
---
 Changes              | 6 ++++++
 perl/update_sysop.pl | 1 +
 2 files changed, 7 insertions(+)

diff --git a/Changes b/Changes
index fa558299..e921da8d 100644
--- 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 666a7d5d..74d6812a 100755
--- 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";
 }
 
-- 
2.43.0