--- cvsroot/Net-FCP/FCP.pm	2003/09/09 06:13:18	1.9
+++ cvsroot/Net-FCP/FCP.pm	2003/09/09 18:52:39	1.11
@@ -48,10 +48,12 @@
 use Carp;
 use IO::Socket::INET;
 
-$VERSION = 0.04;
+$VERSION = 0.05;
+
+no warnings;
 
 our $EVENT = Net::FCP::Event::Auto::;
-$EVENT = Net::FCP::Event::Event::;#d#
+$EVENT = Net::FCP::Event::Event;#d#
 
 sub import {
    shift;
@@ -436,7 +438,7 @@
       for (;;) {
          if ($self->{datalen}) {
             if (length $self->{buf} >= $self->{datalen}) {
-               $self->rcv_data (substr $self->{buf}, 0, $self->{datalen}, "");
+               $self->rcv_data (substr $self->{buf}, 0, delete $self->{datalen}, "");
             } else {
                last;
             }