--- deliantra/Deliantra-Client/DC.pm	2006/10/11 23:34:24	1.124
+++ deliantra/Deliantra-Client/DC.pm	2006/11/07 22:41:27	1.126
@@ -17,7 +17,7 @@
 use Carp ();
 
 BEGIN {
-   $VERSION = '0.52';
+   $VERSION = '0.95';
 
    use XSLoader;
    XSLoader::load "CFPlus", $VERSION;
@@ -107,9 +107,9 @@
 
    my $buffer;
 
-   Event->io (fd => $fh_r, poll => 'r', cb => sub {
+   my $w; $w = AnyEvent->io (fh => $fh_r, poll => 'r', cb => sub {
       unless (sysread $fh_r, $buffer, 4096, length $buffer) {
-         $_[0]->w->cancel;
+         undef $w;
          $buffer .= "done\n";
       }