From a06ff95db570322cf86b713d4a6b410ea007b8e0 Mon Sep 17 00:00:00 2001 From: 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