projects
/
spider.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
6975c4b
)
try remove 5.004 abiguities with 'sort'
author
djk
<djk>
Thu, 18 Nov 1999 22:31:16 +0000
(22:31 +0000)
committer
djk
<djk>
Thu, 18 Nov 1999 22:31:16 +0000
(22:31 +0000)
perl/DXChannel.pm
patch
|
blob
|
history
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;
sub is_bbs
{
my $self = shift;
- return $self->{
sort
} eq 'B';
+ return $self->{
'sort'
} eq 'B';
}
# is it an ak1a cluster ?
}
# is it an ak1a cluster ?
@@
-199,6
+199,13
@@
sub is_connect
return $self->{'sort'} eq 'C';
}
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
# handle out going messages, immediately without waiting for the select to drop
# this could, in theory, block
sub send_now