!4 update to 6.46

Merge pull request !4 from 桐小哥/master
This commit is contained in:
openeuler-ci-bot 2020-07-30 10:48:37 +08:00 committed by Gitee
commit 6d799d50d7
4 changed files with 6 additions and 35 deletions

View File

@ -1,31 +0,0 @@
From 572538753601755b4b6acace1d445bc8e1cc10c8 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Petr=20P=C3=ADsa=C5=99?= <ppisar@redhat.com>
Date: Thu, 16 Feb 2017 14:00:57 +0100
Subject: [PATCH] Accept proxy URLs with IPv6 host names
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit
<https://rt.cpan.org/Public/Bug/Display.html?id=94654>
Signed-off-by: Petr Písař <ppisar@redhat.com>
---
lib/LWP/UserAgent.pm | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/lib/LWP/UserAgent.pm b/lib/LWP/UserAgent.pm
index ea03157..8549808 100644
--- a/lib/LWP/UserAgent.pm
+++ b/lib/LWP/UserAgent.pm
@@ -1039,7 +1039,7 @@ sub proxy
my $url = shift;
if (defined($url) && length($url)) {
Carp::croak("Proxy must be specified as absolute URI; '$url' is not") unless $url =~ /^$URI::scheme_re:/;
- Carp::croak("Bad http proxy specification '$url'") if $url =~ /^https?:/ && $url !~ m,^https?://\w,;
+ Carp::croak("Bad http proxy specification '$url'") if $url =~ /^https?:/ && $url !~ m,^https?://(?:\w|\[),;
}
$self->{proxy}{$key} = $url;
$self->set_my_handler("request_preprepare", \&_need_proxy)
--
2.7.4

Binary file not shown.

BIN
libwww-perl-6.46.tar.gz Normal file

Binary file not shown.

View File

@ -1,13 +1,12 @@
%global __requires_exclude %{?__requires_exclude:%{__requires_exclude}|}^perl\\((Authen::NTLM|Encode|File::Listing|HTTP::Date|HTTP::Negotiate|HTTP::Request|HTTP::Response|HTTP::Status|LWP::MediaTypes|MIME::Base64|Net::FTP|Net::HTTP|URI|WWW::RobotRules)\\)$
Name: perl-libwww-perl
Version: 6.35
Release: 2
Version: 6.46
Release: 1
Summary: The World-Wide Web library for Perl
License: GPL+ or Artistic
URL: https://metacpan.org/release/libwww-perl
Source0: https://cpan.metacpan.org/authors/id/E/ET/ETHER/libwww-perl-%{version}.tar.gz
Patch0000: libwww-perl-6.19-Accept-proxy-URLs-with-IPv6-host-names.patch
Source0: https://cpan.metacpan.org/authors/id/O/OA/OALDERS/libwww-perl-%{version}.tar.gz
BuildArch: noarch
BuildRequires: perl-generators perl-interpreter perl(:VERSION) >= 5.8.1
@ -83,5 +82,8 @@ make test
%{_mandir}/man3/
%changelog
* Wed Jul 29 2020 shixuantong <shixuantong@huawei.com> - 6.46-1
- update to 6.46-1
* Thu Oct 24 2019 Zaiwang Li <lizaiwang1@huawei.com> - 6.35-2
- Init package.