Fixed buffer bug in HTTP::Body::OctetStream

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

diff --git a/lib/HTTP/Body/OctetStream.pm b/lib/HTTP/Body/OctetStream.pm
index 5ff80eb..05c3cd2 100644 (file)
--- a/lib/HTTP/Body/OctetStream.pm
+++ b/lib/HTTP/Body/OctetStream.pm
@@ -6,21 +6,54 @@ use bytes;
 
 use File::Temp 0.14;
 
+=head1 NAME
+
+HTTP::Body::OctetStream - HTTP Body OctetStream Parser
+
+=head1 SYNOPSIS
+
+    use HTTP::Body::OctetStream;
+
+=head1 DESCRIPTION
+
+HTTP Body OctetStream Parser.
+
+=head1 METHODS
+
+=over 4
+
+=item spin
+
+=cut
+
 sub spin {
     my $self = shift;
 
     unless ( $self->body ) {
         $self->body( File::Temp->new );
     }
-    
+
     if ( my $length = length( $self->{buffer} ) ) {
-        $self->body->write( substr( $self->{buffer}, 0, $length ), $length );
+        $self->body->write( substr( $self->{buffer}, 0, $length, '' ), $length );
     }
-    
+
     if ( $self->length == $self->content_length ) {
         seek( $self->body, 0, 0 );
         $self->state('done');
     }
 }
 
+=back
+
+=head1 AUTHOR
+
+Christian Hansen, C<ch@ngmedia.com>
+
+=head1 LICENSE
+
+This library is free software . You can redistribute it and/or modify 
+it under the same terms as perl itself.
+
+=cut
+
 1;