X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXUser.pm;h=cd30264e1d16e54cfaea2d45e57680b2de51e277;hb=8ef5f82f54963d7e0578a892e9336d254aff2e12;hp=056fe9ff50b3a1e2ce1c42cccc6f3491b4f19839;hpb=c3c15883cf25add24fc49e32eb0d17dce6839a62;p=spider.git

diff --git a/perl/DXUser.pm b/perl/DXUser.pm
index 056fe9ff..cd30264e 100644
--- 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