done more work on directory now really quite ak1a compatible

[spider.git] / perl / DXChannel.pm

diff --git a/perl/DXChannel.pm b/perl/DXChannel.pm
index 9bde6aa8fe4a30829b5dfed54895ec92250fd0b7..754cd5387127edab92d73b6ebec42a93199b5f05 100644 (file)
--- a/perl/DXChannel.pm
+++ b/perl/DXChannel.pm
@@ -84,6 +84,7 @@ sub alloc
   
        die "trying to create a duplicate channel for $call" if $channels{$call};
        $self->{call} = $call;
+       $self->{priv} = 0;
        $self->{conn} = $conn if defined $conn; # if this isn't defined then it must be a list
        if (defined $user) {
                $self->{user} = $user;