!1 perl-HTTP-Tiny

Merge pull request !1 from syyhao/init

HTTP-Tiny-0.070-Croak-on-failed-write-into-a-file.patch

@@ -1,36 +0,0 @@
-From ddda87fb08ca523115be1ffd6dec8442e47bc20b Mon Sep 17 00:00:00 2001
-From: =?UTF-8?q?Petr=20P=C3=ADsa=C5=99?= <ppisar@redhat.com>
-Date: Wed, 27 Nov 2013 10:45:39 +0100
-Subject: [PATCH] Croak on failed write into a file
-MIME-Version: 1.0
-Content-Type: text/plain; charset=UTF-8
-Content-Transfer-Encoding: 8bit
-
-The mirror() method saves a document into a file. Any error while
-writing to the file, e.g. no disk space, was ignored. This patch fixes
-it by croaking on such I/O error.
-
-Signed-off-by: Petr Písař <ppisar@redhat.com>
----
- lib/HTTP/Tiny.pm | 5 ++++-
- 1 file changed, 4 insertions(+), 1 deletion(-)
-
-diff --git a/lib/HTTP/Tiny.pm b/lib/HTTP/Tiny.pm
-index 541befe..b3fffd0 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/);
--- 
-2.7.4
-

perl-HTTP-Tiny.spec

@@ -1,14 +1,11 @@
 Name:           perl-HTTP-Tiny
 Version:        0.076
-Release:        2
+Release:        3
 Summary:        A small, simple, correct HTTP/1.1 client
 License:        GPL+ or Artistic
 URL:            https://metacpan.org/release/HTTP-Tiny
 Source0:        https://cpan.metacpan.org/authors/id/D/DA/DAGOLDEN/HTTP-Tiny-%{version}.tar.gz
 
-# https://github.com/chansen/p5-http-tiny/issues/32
-Patch0:         HTTP-Tiny-0.070-Croak-on-failed-write-into-a-file.patch
-
 BuildArch:      noarch
 
 BuildRequires:  make perl-generators perl-interpreter
@@ -67,5 +64,8 @@ make test
 %{_mandir}/man3/*
 
 %changelog
+* Sat Jan 4 2020 openEuler Buildteam <buildteam@openeuler.org> - 0.076-3
+- Delete redundant files
+
 * Tue Sep 17 2019 openEuler Buildteam <buildteam@openeuler.org> - 0.076-2
-- Package init
+- Package init