fix (un)set/registered

[spider.git] / perl / DXUser.pm

diff --git a/perl/DXUser.pm b/perl/DXUser.pm
index dd56498e053eb22b2c0ebc7ed69c46151a764d6e..ef4475625499475af86b805324602c50a082097c 100644 (file)
--- 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;