X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;ds=sidebyside;f=perl%2FDXUser.pm;h=cd30264e1d16e54cfaea2d45e57680b2de51e277;hb=3196486ff0a78459e1b88b3847d255a62fd17895;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