[haver-commits] r833 - in trunk/perl/server: bin lib/Haver/Server/Wheel

[haver]

Author: dylan
Date: 2005-07-05 19:08:16 -0400 (Tue, 05 Jul 2005)
New Revision: 833

Modified:
   trunk/perl/server/bin/haverd.pl
   trunk/perl/server/lib/Haver/Server/Wheel/Login.pm
Log:
Fixed double HAVER bug (thanks nornagon)
Turned on buffering so logging to a file is pleasant.


Modified: trunk/perl/server/bin/haverd.pl
===================================================================
--- trunk/perl/server/bin/haverd.pl     2005-07-05 14:50:53 UTC (rev 832)
+++ trunk/perl/server/bin/haverd.pl     2005-07-05 23:08:16 UTC (rev 833)
@@ -22,5 +22,6 @@
 use POE;
 use Haver::Server;
 
+$|++;
 create Haver::Server;
 POE::Kernel->run;

Modified: trunk/perl/server/lib/Haver/Server/Wheel/Login.pm
===================================================================
--- trunk/perl/server/lib/Haver/Server/Wheel/Login.pm   2005-07-05 14:50:53 UTC 
(rev 832)
+++ trunk/perl/server/lib/Haver/Server/Wheel/Login.pm   2005-07-05 23:08:16 UTC 
(rev 833)
@@ -31,6 +31,7 @@
                }
        }
        $heap->{extensions} = \%ext;
+       $self->undefine('msg_HAVER');
        $self->define('msg_IDENT', 'msg_IDENT');
 }