X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXUser.pm;h=ef4475625499475af86b805324602c50a082097c;hb=56fd7417545aa9de3101434bc88156b5eebb37ab;hp=dd56498e053eb22b2c0ebc7ed69c46151a764d6e;hpb=fc3afe4ee8a8369385cd77638bae2fd1ddd40a7e;p=spider.git

diff --git a/perl/DXUser.pm b/perl/DXUser.pm
index dd56498e..ef447562 100644
--- a/perl/DXUser.pm
+++ b/perl/DXUser.pm
@@ -899,10 +899,15 @@ sub lastping
 sub registered
 {
 	my $self = shift;
+	my $val;
+	if (defined $_[0]) {
+		$val = unpad($_[0]);
+		$self->{registered} = $val;
+	}
 	if (exists $self->{registered}) {
-		return $self->{registered} || 0;
+		$val = $self->{registered} // 0;
 	}
-	return '';					# to stop undef warnings
+	return $val // 0 ;					# to stop undef warnings
 }
 
 1;