rpms/perl-HTTP-Tiny
6
0
Fork 0
Code Issues Pull Requests Releases Activity

0.070 bump

Browse Source
This commit is contained in:
Petr Písař 2016-10-10 14:58:32 +02:00
parent db33e9f856
commit ee525c1f43
4 changed files with 13 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
.gitignore vendored
View File

@ -24,3 +24,4 @@
/HTTP-Tiny-0.058.tar.gz /HTTP-Tiny-0.058.tar.gz
/HTTP-Tiny-0.064.tar.gz /HTTP-Tiny-0.064.tar.gz
/HTTP-Tiny-0.068.tar.gz /HTTP-Tiny-0.068.tar.gz
/HTTP-Tiny-0.070.tar.gz

10
HTTP-Tiny-0.068-Croak-on-failed-write-into-a-file.patch → HTTP-Tiny-0.070-Croak-on-failed-write-into-a-file.patch
View File

@ -1,4 +1,4 @@
From 1ec3e5901a982222e0923a0d68475ed7a40ffb5a Mon Sep 17 00:00:00 2001 From ddda87fb08ca523115be1ffd6dec8442e47bc20b Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Petr=20P=C3=ADsa=C5=99?= <ppisar@redhat.com> From: =?UTF-8?q?Petr=20P=C3=ADsa=C5=99?= <ppisar@redhat.com>
Date: Wed, 27 Nov 2013 10:45:39 +0100 Date: Wed, 27 Nov 2013 10:45:39 +0100
Subject: [PATCH] Croak on failed write into a file Subject: [PATCH] Croak on failed write into a file
@ -16,21 +16,21 @@ Signed-off-by: Petr Písař <ppisar@redhat.com>
1 file changed, 4 insertions(+), 1 deletion(-) 1 file changed, 4 insertions(+), 1 deletion(-)
diff --git a/lib/HTTP/Tiny.pm b/lib/HTTP/Tiny.pm diff --git a/lib/HTTP/Tiny.pm b/lib/HTTP/Tiny.pm
index 6c529bb..1cb6072 100644 index 541befe..b3fffd0 100644
--- a/lib/HTTP/Tiny.pm --- a/lib/HTTP/Tiny.pm
+++ b/lib/HTTP/Tiny.pm +++ b/lib/HTTP/Tiny.pm
@@ -300,7 +300,10 @@ sub mirror { @@ -300,7 +300,10 @@ sub mirror {
sysopen my $fh, $tempfile, Fcntl::O_CREAT()|Fcntl::O_EXCL()|Fcntl::O_WRONLY() sysopen my $fh, $tempfile, Fcntl::O_CREAT()|Fcntl::O_EXCL()|Fcntl::O_WRONLY()
or Carp::croak(qq/Error: Could not create temporary file $tempfile for downloading: $!\n/); or _croak(qq/Error: Could not create temporary file $tempfile for downloading: $!\n/);
binmode $fh; binmode $fh;
- $args->{data_callback} = sub { print {$fh} $_[0] }; - $args->{data_callback} = sub { print {$fh} $_[0] };
+ $args->{data_callback} = sub { + $args->{data_callback} = sub {
+ print {$fh} $_[0] + print {$fh} $_[0]
+ or Carp::croak(qq/Error: Could not write into temporary file $tempfile: $!\n/); + or _croak(qq/Error: Could not write into temporary file $tempfile: $!\n/);
+ }; + };
my $response = $self->request('GET', $url, $args); my $response = $self->request('GET', $url, $args);
close $fh close $fh
or Carp::croak(qq/Error: Caught error closing temporary file $tempfile: $!\n/); or _croak(qq/Error: Caught error closing temporary file $tempfile: $!\n/);
-- --
2.7.4 2.7.4

8
perl-HTTP-Tiny.spec
View File

@ -1,5 +1,5 @@
Name: perl-HTTP-Tiny Name: perl-HTTP-Tiny
Version: 0.068 Version: 0.070
Release: 1%{?dist} Release: 1%{?dist}
Summary: Small, simple, correct HTTP/1.1 client Summary: Small, simple, correct HTTP/1.1 client
License: GPL+ or Artistic License: GPL+ or Artistic
@ -8,7 +8,7 @@ URL: http://search.cpan.org/dist/HTTP-Tiny/
Source0: http://www.cpan.org/authors/id/D/DA/DAGOLDEN/HTTP-Tiny-%{version}.tar.gz Source0: http://www.cpan.org/authors/id/D/DA/DAGOLDEN/HTTP-Tiny-%{version}.tar.gz
# Check for write failure, bug #1031096, refused by upstream, # Check for write failure, bug #1031096, refused by upstream,
# <https://github.com/chansen/p5-http-tiny/issues/32> # <https://github.com/chansen/p5-http-tiny/issues/32>
Patch0: HTTP-Tiny-0.068-Croak-on-failed-write-into-a-file.patch Patch0: HTTP-Tiny-0.070-Croak-on-failed-write-into-a-file.patch
BuildArch: noarch BuildArch: noarch
BuildRequires: findutils BuildRequires: findutils
BuildRequires: make BuildRequires: make
@ -48,6 +48,7 @@ BuildRequires: perl(open)
BuildRequires: perl(Test::More) >= 0.96 BuildRequires: perl(Test::More) >= 0.96
Requires: perl(:MODULE_COMPAT_%(eval "`perl -V:version`"; echo $version)) Requires: perl(:MODULE_COMPAT_%(eval "`perl -V:version`"; echo $version))
Requires: perl(bytes) Requires: perl(bytes)
Requires: perl(Carp)
Requires: perl(Fcntl) Requires: perl(Fcntl)
Recommends: perl(IO::Socket::IP) >= 0.32 Recommends: perl(IO::Socket::IP) >= 0.32
Recommends: perl(IO::Socket::SSL) >= 1.56 Recommends: perl(IO::Socket::SSL) >= 1.56
@ -86,6 +87,9 @@ make test
%{_mandir}/man3/* %{_mandir}/man3/*
%changelog %changelog
* Mon Oct 10 2016 Petr Pisar <ppisar@redhat.com> - 0.070-1
- 0.070 bump
* Mon Sep 26 2016 Petr Pisar <ppisar@redhat.com> - 0.068-1 * Mon Sep 26 2016 Petr Pisar <ppisar@redhat.com> - 0.068-1
- 0.068 bump - 0.068 bump

2
sources
View File

@ -1 +1 @@
605826313a2c097f25e96153826b124d HTTP-Tiny-0.068.tar.gz a26b2526ccbd5151302c2a76422c2bec HTTP-Tiny-0.070.tar.gz