Author: dylan
Date: 2006-01-07 10:29:45 -0500 (Sat, 07 Jan 2006)
New Revision: 961
Modified:
trunk/perl/server/lib/Haver/Server/Talker.pm
Log:
Ooops, 'twas broken.
Modified: trunk/perl/server/lib/Haver/Server/Talker.pm
===================================================================
--- trunk/perl/server/lib/Haver/Server/Talker.pm 2006-01-06 16:19:05 UTC
(rev 960)
+++ trunk/perl/server/lib/Haver/Server/Talker.pm 2006-01-07 15:29:45 UTC
(rev 961)
@@ -83,11 +83,13 @@
unless ($heap->{version}) {
- Log('warning', "My, isn't this a stupid one.");
- $heap->{error} = 1;
- $heap->{client} = undef;
- call('shutdown');
- return;
+ if (not @$args and $args->[0] ne 'HAVER') {
+ Log('warning', "My, isn't this a stupid one.");
+ $heap->{error} = 1;
+ $heap->{client} = undef;
+ call('shutdown');
+ return;
+ }
}
unless (@$args) {
