fixed sh/node crash

[spider.git] / perl / DXUser.pm

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__