diff --git a/lib/HTTP/Tiny.pm b/lib/HTTP/Tiny.pm index 7e74813..2c67e78 100644 --- a/lib/HTTP/Tiny.pm +++ b/lib/HTTP/Tiny.pm @@ -300,10 +300,7 @@ sub mirror { sysopen my $fh, $tempfile, Fcntl::O_CREAT()|Fcntl::O_EXCL()|Fcntl::O_WRONLY() or _croak(qq/Error: Could not create temporary file $tempfile for downloading: $!\n/); binmode $fh; - $args->{data_callback} = sub { - print {$fh} $_[0] - or _croak(qq/Error: Could not write into temporary file $tempfile: $!\n/); - }; + $args->{data_callback} = sub { print {$fh} $_[0] }; my $response = $self->request('GET', $url, $args); close $fh or _croak(qq/Error: Caught error closing temporary file $tempfile: $!\n/);