From f7dd82f2355fd2bf0a342838e3a78eda8c7c623d Mon Sep 17 00:00:00 2001
From: djk <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.34.1