--- AnyEvent/lib/AnyEvent/Handle.pm 2010/12/31 04:47:41 1.211 +++ AnyEvent/lib/AnyEvent/Handle.pm 2010/12/31 04:50:44 1.212 @@ -1618,9 +1618,7 @@ defined (my $len = eval { unpack $format, $_[0]{rbuf} }) or return; - warn "len $len\n";#d# $format = length pack $format, $len; - warn "len2 $format\n";#d# # bypass unshift if we already have the remaining chunk if ($format + $len <= length $_[0]{rbuf}) {