X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;ds=sidebyside;f=perl%2FDXChannel.pm;h=dce4fb5002bb1d277b76527e9e3e81749565cf1a;hb=f7dd82f2355fd2bf0a342838e3a78eda8c7c623d;hp=33d353dbb84e2bb748c52d080b50b7e46c5c4f47;hpb=6975c4b4c8b210af067efab767bc1656786f70f2;p=spider.git

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