|
 |
d59553 |
From 782e0fffff52c0cd729bbcdbd18657df4331adc9 Mon Sep 17 00:00:00 2001
|
|
|
d59553 |
From: =?UTF-8?q?Petr=20P=C3=ADsa=C5=99?= <ppisar@redhat.com>
|
|
|
d59553 |
Date: Wed, 27 Nov 2013 10:45:39 +0100
|
|
|
d59553 |
Subject: [PATCH] Croak on failed write into a file
|
|
|
d59553 |
MIME-Version: 1.0
|
|
|
d59553 |
Content-Type: text/plain; charset=UTF-8
|
|
|
d59553 |
Content-Transfer-Encoding: 8bit
|
|
|
d59553 |
|
|
|
d59553 |
The mirror() method saves a document into a file. Any error while
|
|
|
d59553 |
writing to the file, e.g. no disk space, was ignored. This patch fixes
|
|
|
d59553 |
it by croaking on such I/O error.
|
|
|
d59553 |
|
|
|
d59553 |
Signed-off-by: Petr Písař <ppisar@redhat.com>
|
|
|
d59553 |
---
|
|
|
d59553 |
lib/HTTP/Tiny.pm | 5 ++++-
|
|
|
d59553 |
1 file changed, 4 insertions(+), 1 deletion(-)
|
|
|
d59553 |
|
|
|
d59553 |
diff --git a/lib/HTTP/Tiny.pm b/lib/HTTP/Tiny.pm
|
|
|
d59553 |
index 42653e0..a3def75 100644
|
|
|
d59553 |
--- a/lib/HTTP/Tiny.pm
|
|
|
d59553 |
+++ b/lib/HTTP/Tiny.pm
|
|
|
d59553 |
@@ -291,7 +291,10 @@ sub mirror {
|
|
|
d59553 |
sysopen my $fh, $tempfile, Fcntl::O_CREAT()|Fcntl::O_EXCL()|Fcntl::O_WRONLY()
|
|
|
d59553 |
or Carp::croak(qq/Error: Could not create temporary file $tempfile for downloading: $!\n/);
|
|
|
d59553 |
binmode $fh;
|
|
|
d59553 |
- $args->{data_callback} = sub { print {$fh} $_[0] };
|
|
|
d59553 |
+ $args->{data_callback} = sub {
|
|
|
d59553 |
+ print {$fh} $_[0]
|
|
|
d59553 |
+ or Carp::croak(qq/Error: Could not write into temporary file $tempfile: $!\n/);
|
|
|
d59553 |
+ };
|
|
|
d59553 |
my $response = $self->request('GET', $url, $args);
|
|
|
d59553 |
close $fh
|
|
|
d59553 |
or Carp::croak(qq/Error: Caught error closing temporary file $tempfile: $!\n/);
|
|
|
d59553 |
--
|
|
|
d59553 |
2.5.5
|
|
|
d59553 |
|