[haver-commits] r887 - trunk/perl/server/lib/Haver/Server/Wheel

[haver]

Author: dylan
Date: 2005-07-19 22:11:28 -0400 (Tue, 19 Jul 2005)
New Revision: 887

Modified:
   trunk/perl/server/lib/Haver/Server/Wheel/Auth.pm
Log:
Stop harassing me you foolish humans!


Modified: trunk/perl/server/lib/Haver/Server/Wheel/Auth.pm
===================================================================
--- trunk/perl/server/lib/Haver/Server/Wheel/Auth.pm    2005-07-20 02:11:25 UTC 
(rev 886)
+++ trunk/perl/server/lib/Haver/Server/Wheel/Auth.pm    2005-07-20 02:11:28 UTC 
(rev 887)
@@ -48,6 +48,7 @@
        my $store = $heap->{store};
        my $name = $heap->{name};
        my $user = $store->fetch(user => $name);
+       $user->name($name);
 
        unless (exists $digests->{$digest}) {
                $kernel->yield('fail', 'unknown.digest');