From: djk Date: Tue, 13 Jun 2000 23:00:34 +0000 (+0000) Subject: fixed sh/node crash X-Git-Tag: R_1_42~14 X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=commitdiff_plain;h=e51d0aa9293d8821c285ff573906a032e959d0c0;p=spider.git fixed sh/node crash --- diff --git a/Changes b/Changes index 77571734..7d060d2e 100644 --- a/Changes +++ b/Changes @@ -1,3 +1,5 @@ +14Jun00======================================================================= +1. fixed sh/node crash 13Jun00======================================================================= 1. fixed looping bug in C client on ending. 12Jun00======================================================================= diff --git a/perl/DXUser.pm b/perl/DXUser.pm index 65aab42b..e2efad56 100644 --- a/perl/DXUser.pm +++ b/perl/DXUser.pm @@ -425,6 +425,11 @@ sub is_arcluster return $self->{sort} eq 'R'; } +sub is_ak1a +{ + my $self = shift; + return $self->{sort} eq 'A'; +} 1; __END__