From: djk <djk>
Date: Thu, 18 Nov 1999 22:31:16 +0000 (+0000)
Subject: try remove 5.004 abiguities with 'sort'
X-Git-Tag: R_1_35~26
X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=commitdiff_plain;h=f7dd82f2355fd2bf0a342838e3a78eda8c7c623d;p=spider.git

try remove 5.004 abiguities with 'sort'
---

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