6.15 bump

This commit is contained in:
Petr Písař 2015-12-07 10:18:06 +01:00
parent 3dfb6f4c63
commit d2fe098543
4 changed files with 15 additions and 81 deletions

1
.gitignore vendored
View File

@ -9,3 +9,4 @@ libwww-perl-5.834.tar.gz
/libwww-perl-6.07.tar.gz
/libwww-perl-6.08.tar.gz
/libwww-perl-6.13.tar.gz
/libwww-perl-6.15.tar.gz

View File

@ -1,75 +0,0 @@
From f006363d57c1125b8aa4be5de4e602dc8fb468cd Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Petr=20P=C3=ADsa=C5=99?= <ppisar@redhat.com>
Date: Wed, 23 Apr 2014 12:45:38 +0200
Subject: [PATCH] Connect to localhost instead of hostname
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit
The hostname does not have to be resolvable nor reachable. It's just
a machine name.
Signed-off-by: Petr Písař <ppisar@redhat.com>
---
t/local/http.t | 2 +-
t/robot/ua-get.t | 2 +-
t/robot/ua.t | 2 +-
talk-to-ourself | 3 +--
4 files changed, 4 insertions(+), 5 deletions(-)
diff --git a/t/local/http.t b/t/local/http.t
index 917b04d..3c695ae 100644
--- a/t/local/http.t
+++ b/t/local/http.t
@@ -21,7 +21,7 @@ if ($D eq 'daemon') {
require HTTP::Daemon;
- my $d = HTTP::Daemon->new(Timeout => 10);
+ my $d = HTTP::Daemon->new(Timeout => 10, LocalAddr => 'localhost');
print "Please to meet you at: <URL:", $d->url, ">\n";
open(STDOUT, $^O eq 'VMS'? ">nl: " : ">/dev/null");
diff --git a/t/robot/ua-get.t b/t/robot/ua-get.t
index 63bb963..d5bd803 100644
--- a/t/robot/ua-get.t
+++ b/t/robot/ua-get.t
@@ -20,7 +20,7 @@ if ($D eq 'daemon') {
require HTTP::Daemon;
- my $d = new HTTP::Daemon Timeout => 10;
+ my $d = new HTTP::Daemon Timeout => 10, LocalAddr => 'localhost';
print "Please to meet you at: <URL:", $d->url, ">\n";
open(STDOUT, $^O eq 'MSWin32' ? ">nul" : $^O eq 'VMS' ? ">NL:" : ">/dev/null");
diff --git a/t/robot/ua.t b/t/robot/ua.t
index 3000e71..ccb23b6 100644
--- a/t/robot/ua.t
+++ b/t/robot/ua.t
@@ -20,7 +20,7 @@ if ($D eq 'daemon') {
require HTTP::Daemon;
- my $d = new HTTP::Daemon Timeout => 10;
+ my $d = new HTTP::Daemon Timeout => 10, LocalAddr => 'localhost';
print "Please to meet you at: <URL:", $d->url, ">\n";
open(STDOUT, $^O eq 'MSWin32' ? ">nul" : $^O eq 'VMS' ? ">NL:" : ">/dev/null");
diff --git a/talk-to-ourself b/talk-to-ourself
index 6c0257a..b4acda2 100644
--- a/talk-to-ourself
+++ b/talk-to-ourself
@@ -9,8 +9,7 @@ require IO::Socket;
if (@ARGV >= 2 && $ARGV[0] eq "--port") {
my $port = $ARGV[1];
- require Sys::Hostname;
- my $host = Sys::Hostname::hostname();
+ my $host = 'localhost';
if (my $socket = IO::Socket::INET->new(PeerAddr => "$host:$port", Timeout => 5)) {
require IO::Select;
if (IO::Select->new($socket)->can_read(1)) {
--
2.1.0

View File

@ -1,14 +1,15 @@
Name: perl-libwww-perl
Version: 6.13
Release: 3%{?dist}
Version: 6.15
Release: 1%{?dist}
Summary: A Perl interface to the World-Wide Web
Group: Development/Libraries
License: GPL+ or Artistic
URL: http://search.cpan.org/dist/libwww-perl/
Source0: http://www.cpan.org/authors/id/E/ET/ETHER/libwww-perl-%{version}.tar.gz
# Run tests against localhost, CPAN RT#94959
Patch0: libwww-perl-6.13-Connect-to-localhost-instead-of-hostname.patch
BuildArch: noarch
BuildRequires: coreutils
BuildRequires: findutils
BuildRequires: make
BuildRequires: perl
BuildRequires: perl(ExtUtils::MakeMaker)
BuildRequires: perl(File::Copy)
@ -60,10 +61,12 @@ BuildRequires: perl(WWW::RobotRules) >= 6
# Tests only:
BuildRequires: perl(Config)
# File::Path not used
BuildRequires: perl(File::Temp)
BuildRequires: perl(FindBin)
BuildRequires: perl(HTTP::Daemon) >= 6
BuildRequires: perl(Test)
# TAP::Harness not used
# Test::DistManifest not used
BuildRequires: perl(Test::More)
Requires: perl(:MODULE_COMPAT_%(eval "`perl -V:version`"; echo $version))
@ -85,6 +88,7 @@ Requires: perl(HTTP::Request::Common) >= 6
Requires: perl(HTTP::Response) >= 6
Requires: perl(HTTP::Status) >= 6
Requires: perl(LWP::MediaTypes) >= 6
Suggests: perl(LWP::Protocol::https) >= 6.02
Requires: perl(MIME::Base64) >= 2.1
Requires: perl(Net::FTP) >= 2.58
Requires: perl(Net::HTTP) >= 6.07
@ -118,7 +122,6 @@ use and even classes that help you implement simple HTTP servers.
%prep
%setup -q -n libwww-perl-%{version}
%patch0 -p1
%build
# Install the aliases by default
@ -135,6 +138,7 @@ chmod -R u+w $RPM_BUILD_ROOT/*
make test
%files
%license LICENSE
%doc AUTHORS Changes README*
%{_bindir}/*
%{perl_privlib}/lwp*.pod
@ -144,6 +148,10 @@ make test
%{_mandir}/man3/*.3*
%changelog
* Mon Dec 07 2015 Petr Pisar <ppisar@redhat.com> - 6.15-1
- 6.15 bump
- Add LWP::Protocol::https optional dependency on Suggests level
* Thu Jun 18 2015 Fedora Release Engineering <rel-eng@lists.fedoraproject.org> - 6.13-3
- Rebuilt for https://fedoraproject.org/wiki/Fedora_23_Mass_Rebuild

View File

@ -1 +1 @@
85b36bcd2fd2450718ee14f894f0d3d1 libwww-perl-6.13.tar.gz
6888c9d8728cd6f3ea3c9754461c9f94 libwww-perl-6.15.tar.gz