changed FileHandle to IO::File in cmds

added a check for a isa('DXNode') in PC50

diff --git a/Changes b/Changes
index d82b0d0e2800e951d52bcb969ea3adaffd0ae00a..e308778b81ceb302e3332416c490bb444f7d3030 100644 (file)
--- 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 111e9b25292bb4a2ec83946aff25badc7f0e9780..26a60e7ccca6bdaf573e4ab9550fe2ef4853314e 100644 (file)
--- 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 6f60c05f03718470efb172565925d0c61512c725..afdd2d302df66cc0d14db4c1dba93ba20b3eaf0d 100644 (file)
--- 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 d9e59c4937bc9211cc8425a804760879dfba6aa6..17328bc2cc6ee79c9e31d76cd31cd8df929d393d 100644 (file)
--- 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]);
                        }