minor fixes

[catagits/HTTP-Body.git] / lib / HTTP / Body / OctetStream.pm

diff --git a/lib/HTTP/Body/OctetStream.pm b/lib/HTTP/Body/OctetStream.pm
index 66c1b58..5ff80eb 100644 (file)
--- a/lib/HTTP/Body/OctetStream.pm
+++ b/lib/HTTP/Body/OctetStream.pm
@@ -14,7 +14,7 @@ sub spin {
     }
     
     if ( my $length = length( $self->{buffer} ) ) {
-        $self->body->write( delete $self->{buffer}, $length );
+        $self->body->write( substr( $self->{buffer}, 0, $length ), $length );
     }
     
     if ( $self->length == $self->content_length ) {