HTTP::Body 1.04, patch from jgoulah for tmpdir() accessor

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

diff --git a/lib/HTTP/Body/OctetStream.pm b/lib/HTTP/Body/OctetStream.pm
index 05c3cd2..00efce0 100644 (file)
--- a/lib/HTTP/Body/OctetStream.pm
+++ b/lib/HTTP/Body/OctetStream.pm
@@ -30,7 +30,7 @@ sub spin {
     my $self = shift;
 
     unless ( $self->body ) {
-        $self->body( File::Temp->new );
+        $self->body( File::Temp->new( DIR => $self->tmpdir ) );
     }
 
     if ( my $length = length( $self->{buffer} ) ) {