From aa8bca9badc74d4dabac3e282955c204975528ed Mon Sep 17 00:00:00 2001
From: Packit Service <user-cont-team+packit-service@redhat.com>
Date: Dec 10 2020 01:54:49 +0000
Subject: Apply patch HTTP-Tiny-0.070-Croak-on-failed-write-into-a-file.patch


patch_name: HTTP-Tiny-0.070-Croak-on-failed-write-into-a-file.patch
present_in_specfile: true

---

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