fixed sh/node crash

diff --git a/Changes b/Changes
index 775717344bf57e2c76b6cc494fae68bba0ba19b3..7d060d2e8995a838feccecb1e93abf235f9f61dd 100644 (file)
--- 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 65aab42bdf164ed52a686ae40611955288b260b9..e2efad560fac2a7c3ae1b04ae71692953dcd80ea 100644 (file)
--- 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__