libwww-perl-6.19-Accept-proxy-URLs-with-IPv6-host-names.patch

@@ -0,0 +1,31 @@
+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
+

perl-libwww-perl.spec

@@ -1,12 +1,13 @@
 %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.66
+Version:        6.35
-Release:        1
+Release:        2
 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/O/OA/OALDERS/libwww-perl-%{version}.tar.gz
+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
 BuildArch:      noarch
 
 BuildRequires:  perl-generators perl-interpreter perl(:VERSION) >= 5.8.1
@@ -22,8 +23,7 @@ BuildRequires:  perl(Scalar::Util) perl(Try::Tiny) perl(URI) >= 1.10 perl(URI::E
 BuildRequires:  perl(WWW::RobotRules) >= 6 perl(Config) perl(File::Spec)
 BuildRequires:  perl(File::Temp) perl(FindBin) perl(HTTP::Daemon) >= 6
 BuildRequires:  perl(Test::Fatal) perl(Test::More) perl(Test::RequiresInternet)
-BuildRequires:  perl(utf8) perl(Test::Needs) perl(Test::LeakTrace)
+BuildRequires:  perl(utf8) perl(Test::Needs)
-BuildRequires:  perl(File::Listing) >= 6 perl(HTTP::Cookies) >= 6 perl(HTTP::Negotiate) >= 6
 
 BuildConflicts: perl(HTTP::Status) = 6.17
 
@@ -35,7 +35,6 @@ Requires:       perl(HTTP::Request) >= 6 perl(HTTP::Request::Common) >= 6 perl(H
 Requires:       perl(HTTP::Status) >= 6 perl(LWP::MediaTypes) >= 6 perl(MIME::Base64) >= 2.1
 Requires:       perl(Net::FTP) >= 2.58 perl(Net::HTTP) >= 6.07 perl(URI) >= 1.10
 Requires:       perl(URI::Escape) perl(WWW::RobotRules) >= 6
-Requires:       perl(File::Listing) >= 6 perl(HTTP::Cookies) >= 6 perl(HTTP::Negotiate) >= 6
 
 Suggests:       perl(CPAN::Config) perl(HTML::FormatPS) perl(HTML::FormatText)
 Suggests:       perl(HTML::Parse) perl(LWP::Protocol::https) >= 6.02
@@ -84,17 +83,5 @@ make test
 %{_mandir}/man3/
 
 %changelog
-* Mon Otc 24 2022 wulei <wulei80@h-partners.com> - 6.66-1
-- Upgrade to version 6.66
-
-* Mon Dec 13 2021 guozhaorui <guozhaorui1@huawei.com> - 6.58-1
-- update version to 6.58
-
-* Fri Jan 29 2021 yuanxin <yuanxin24@huawei.com> - 6.51-1
-- upgrade version to 6.51
-
-* 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.

perl-libwww-perl.yaml

@@ -1,4 +0,0 @@
-version_control: metacpan
-src_repo: libwww-perl
-tag_prefix: "^v"
-seperator: "."