From: 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