From: djk <djk>
Date: Mon, 14 Jun 1999 15:49:14 +0000 (+0000)
Subject: changed FileHandle to IO::File in cmds
X-Git-Tag: R_1_30~18
X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=commitdiff_plain;h=a06ff95db570322cf86b713d4a6b410ea007b8e0;p=spider.git

changed FileHandle to IO::File in cmds
added a check for a isa('DXNode') in PC50
---

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]);
 			}