Author: dylan
Date: 2004-05-27 17:02:32 -0400 (Thu, 27 May 2004)
New Revision: 172
Modified:
trunk/poe-client/lib/POE/Component/Client/Haver.pm
Log:
Compatible with the new protocol.
Modified: trunk/poe-client/lib/POE/Component/Client/Haver.pm
===================================================================
--- trunk/poe-client/lib/POE/Component/Client/Haver.pm 2004-05-27 06:02:48 UTC
(rev 171)
+++ trunk/poe-client/lib/POE/Component/Client/Haver.pm 2004-05-27 21:02:32 UTC
(rev 172)
@@ -132,7 +132,6 @@
event_JOIN
event_PART
event_MSG
- event_PMSG
event_USERS
event_BYE
event_QUIT
@@ -558,7 +557,7 @@
=cut
-sub join {join
+sub join {
my ($kernel, $heap, $where) = @_[KERNEL,HEAP,ARG0];
$kernel->yield('send', 'JOIN', $where);
}