X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXChannel.pm;h=a0bc6ab9d9e7c3e1400709e9473037e745fd890e;hb=b29626c537438016f7221c667628d5e49b9f4fce;hp=9d6b33a16743a213d26d7e4e503af48b3263aaa9;hpb=d4ba5e72693bb889ddbdf3b6bec688361f5273f9;p=spider.git

diff --git a/perl/DXChannel.pm b/perl/DXChannel.pm
index 9d6b33a1..a0bc6ab9 100644
--- a/perl/DXChannel.pm
+++ b/perl/DXChannel.pm
@@ -770,7 +770,7 @@ sub isregistered
 	my $self = shift;
 
 	# the sysop is registered!
-	return 1 if $self->call eq $main::myalias || $self->call eq $main::mycall;
+	return 1 if $self->{call} eq $main::myalias || $self->{call} eq $main::mycall;
 	
 	if ($main::reqreg) {
 		return $self->{registered};