X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXUser.pm;fp=perl%2FDXUser.pm;h=cd30264e1d16e54cfaea2d45e57680b2de51e277;hb=a05049f350f2acb4de3f76c7aed205417da688f6;hp=056fe9ff50b3a1e2ce1c42cccc6f3491b4f19839;hpb=badfbc788acb5030fc3bf3024f91bd776689946b;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