From f7dd82f2355fd2bf0a342838e3a78eda8c7c623d Mon Sep 17 00:00:00 2001 From: djk Date: Thu, 18 Nov 1999 22:31:16 +0000 Subject: [PATCH] try remove 5.004 abiguities with 'sort' --- perl/DXChannel.pm | 9 ++++++++- 1 file changed, 8 insertions(+), 1 deletion(-) diff --git a/perl/DXChannel.pm b/perl/DXChannel.pm index 33d353db..dce4fb50 100644 --- a/perl/DXChannel.pm +++ b/perl/DXChannel.pm @@ -175,7 +175,7 @@ sub del sub is_bbs { my $self = shift; - return $self->{sort} eq 'B'; + return $self->{'sort'} eq 'B'; } # is it an ak1a cluster ? @@ -199,6 +199,13 @@ sub is_connect return $self->{'sort'} eq 'C'; } +# for perl 5.004's benefit +sub sort +{ + my $self = shift; + return @_ ? $self->{'sort'} = shift : $self->{'sort'} ; +} + # handle out going messages, immediately without waiting for the select to drop # this could, in theory, block sub send_now -- 2.43.0