X-Git-Url: http://www.dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2Fcluster.pl;h=9416a7f3a8578769a2a4152895433646cc00cc8b;hb=1a9286080b21d5b65f97cab08d8a493abafad8f1;hp=55e0badbcfd0484abd98606facb4253b00c4f2aa;hpb=36476fc1fa5aeefc5d34ff9e8bb9c08fafcfe589;p=spider.git

diff --git a/perl/cluster.pl b/perl/cluster.pl
index 55e0badb..9416a7f3 100755
--- a/perl/cluster.pl
+++ b/perl/cluster.pl
@@ -263,8 +263,8 @@ sub new_channel
 			$lock = $user->lockout;
 		} elsif ($basecall ne $call) {
 			# if there isn't a SSID on the $call, then try the base
-			$user = DXUser::get_current($basecall);
-			$lock = $user->lockout if $user;
+			my $luser = DXUser::get_current($basecall);
+			$lock = $luser->lockout if $luser;
 		}
 
 		# now deal with the lock