try remove 5.004 abiguities with 'sort'

diff --git a/perl/DXChannel.pm b/perl/DXChannel.pm
index 33d353dbb84e2bb748c52d080b50b7e46c5c4f47..dce4fb5002bb1d277b76527e9e3e81749565cf1a 100644 (file)
--- 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