X-Git-Url: http://www.dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXChannel.pm;h=754cd5387127edab92d73b6ebec42a93199b5f05;hb=af2f3a0a2f8e5d99e0072c194f20a1da2f559348;hp=9bde6aa8fe4a30829b5dfed54895ec92250fd0b7;hpb=2c55d933fc8883717c59c2e7d25dc82d63e3f507;p=spider.git

diff --git a/perl/DXChannel.pm b/perl/DXChannel.pm
index 9bde6aa8..754cd538 100644
--- 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;