From e51d0aa9293d8821c285ff573906a032e959d0c0 Mon Sep 17 00:00:00 2001 From: djk Date: Tue, 13 Jun 2000 23:00:34 +0000 Subject: [PATCH] fixed sh/node crash --- Changes | 2 ++ perl/DXUser.pm | 5 +++++ 2 files changed, 7 insertions(+) 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__ -- 2.43.0