From a06ff95db570322cf86b713d4a6b410ea007b8e0 Mon Sep 17 00:00:00 2001
From: djk <djk>
Date: Mon, 14 Jun 1999 15:49:14 +0000
Subject: [PATCH] changed FileHandle to IO::File in cmds added a check for a
 isa('DXNode') in PC50

---
 Changes        | 2 ++
 cmd/apropos.pl | 2 +-
 cmd/help.pl    | 2 +-
 perl/DXProt.pm | 1 +
 4 files changed, 5 insertions(+), 2 deletions(-)

diff --git a/Changes b/Changes
index d82b0d0e..e308778b 100644
--- a/Changes
+++ b/Changes
@@ -1,3 +1,5 @@
+14Jun99=======================================================================
+1. changed IO::File in help and apropos to IO::File
 08Jun99=======================================================================
 1. Started work on the curses based operator console.
 03Jun99=======================================================================
diff --git a/cmd/apropos.pl b/cmd/apropos.pl
index 111e9b25..26a60e7c 100644
--- a/cmd/apropos.pl
+++ b/cmd/apropos.pl
@@ -15,7 +15,7 @@ my @out;
 my $lang = $self->lang;
 $lang = 'en' if !$lang;
 
-my $h = new FileHandle;
+my $h = new IO::File;
 
 if (!open($h, "$main::localcmd/Commands_$lang.hlp")) {
 	if (!open($h, "$main::cmd/Commands_$lang.hlp")) {
diff --git a/cmd/help.pl b/cmd/help.pl
index 6f60c05f..afdd2d30 100644
--- a/cmd/help.pl
+++ b/cmd/help.pl
@@ -32,7 +32,7 @@ $lang = 'en' if !$lang;
 # The fields are:- privilege level, Language, full command name, short description
 #
 
-my $h = new FileHandle;
+my $h = new IO::File;
 
 if (!open($h, "$main::localcmd/Commands_$lang.hlp")) {
 	if (!open($h, "$main::cmd/Commands_$lang.hlp")) {
diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index d9e59c49..17328bc2 100644
--- a/perl/DXProt.pm
+++ b/perl/DXProt.pm
@@ -661,6 +661,7 @@ sub normal
 		if ($pcno == 50) {		# keep alive/user list
 			my $node = DXCluster->get_exact($field[1]);
 			if ($node) {
+				return unless $node->isa('DXNode');
 				return unless $node->dxchan == $self;
 				$node->update_users($field[2]);
 			}
-- 
2.43.0