fix unknown user crash in Hello

[spider.git] / perl / DXUser.pm

diff --git a/perl/DXUser.pm b/perl/DXUser.pm
index 056fe9ff50b3a1e2ce1c42cccc6f3491b4f19839..cd30264e1d16e54cfaea2d45e57680b2de51e277 100644 (file)
--- a/perl/DXUser.pm
+++ b/perl/DXUser.pm
@@ -297,6 +297,7 @@ sub put
        $lru->put($call, $self);
        my $ref = $self->encode;
        $dbm->put($call, $ref);
+       return $self;
 }
 
 # freeze the user