dev-perl/Mozilla-PublicSuffix: Version bump 1.0.4

Package-Manager: Portage-3.0.20, Repoman-3.0.3
Signed-off-by: Andreas K. Hüttel <dilfridge@gentoo.org>

3 files changed, 116 insertions, 0 deletions

diff --git a/dev-perl/Mozilla-PublicSuffix/Manifest b/dev-perl/Mozilla-PublicSuffix/Manifest
index 70b5faa99753..8d8950744197 100644
--- a/dev-perl/Mozilla-PublicSuffix/Manifest
+++ b/dev-perl/Mozilla-PublicSuffix/Manifest
@@ -1 +1,2 @@
 DIST Mozilla-PublicSuffix-v1.0.0.tar.gz 71669 BLAKE2B 5a5866b6446cf56df24d5113e2ce663dec3ace6025ff9888b40914b577215dcb65f3f57bae1ac31bc82ff5dc3a0ae4d79f1d63dbe6fa717358ebf92d0779b579 SHA512 79ed7256bccb33f1f428657bd60cccaf7be5d4793424337b94a812a41f46e90507b8c32b3aa8b381bf16d77f4a3f911301f757332e9144718efd2341996d9cc6
+DIST Mozilla-PublicSuffix-v1.0.4.tar.gz 85940 BLAKE2B a3f8266dc0c48b302cc5c9a488318f2b3668ffdb6e50bc567362d1e00b1798f7a37470e2b3f78321b48567f411d6e10e9b1ffd88bd82caa0659ce2b7f67c43e5 SHA512 681803f51fbc8aca961874607f1f3a6a91c95a0e1397e3d702b013a9ab3cfcca7b08340414f977dcc9af7ee01610bdf8b60ce6bcea3bffab6156d80b2063f008
diff --git a/dev-perl/Mozilla-PublicSuffix/Mozilla-PublicSuffix-1.0.4.ebuild b/dev-perl/Mozilla-PublicSuffix/Mozilla-PublicSuffix-1.0.4.ebuild
new file mode 100644
index 000000000000..4cb39f043ae9
--- /dev/null
+++ b/dev-perl/Mozilla-PublicSuffix/Mozilla-PublicSuffix-1.0.4.ebuild
@@ -0,0 +1,34 @@
+# Copyright 1999-2021 Gentoo Authors
+# Distributed under the terms of the GNU General Public License v2
+
+EAPI=8
+
+DIST_AUTHOR=TOMHUKINS
+DIST_VERSION="v${PV}"
+inherit perl-module
+
+DESCRIPTION="Get a domain name's public suffix via the Mozilla Public Suffix List"
+SLOT="0"
+KEYWORDS="~amd64 ~x86"
+
+RDEPEND="
+	virtual/perl-Exporter
+	dev-perl/URI
+"
+BDEPEND="${RDEPEND}
+	virtual/perl-IO
+	>=dev-perl/Module-Build-0.280.0
+	test? (
+		virtual/perl-Test-Simple
+		virtual/perl-File-Spec
+	)
+"
+
+PATCHES=(
+	"${FILESDIR}/${PV}-no-dynamic-update.patch"
+)
+
+src_test() {
+	perl_rm_files t/author-* t/release-*
+	perl-module_src_test
+}
diff --git a/dev-perl/Mozilla-PublicSuffix/files/1.0.4-no-dynamic-update.patch b/dev-perl/Mozilla-PublicSuffix/files/1.0.4-no-dynamic-update.patch
new file mode 100644
index 000000000000..7dfdc7a4416c
--- /dev/null
+++ b/dev-perl/Mozilla-PublicSuffix/files/1.0.4-no-dynamic-update.patch
@@ -0,0 +1,81 @@
+From 7dcc6afa75d5318325856fdef0456f4ddf1672b1 Mon Sep 17 00:00:00 2001
+From: Kent Fredric <kentfredric@gmail.com>
+Date: Fri, 6 Jan 2017 12:32:50 +1300
+Subject: [PATCH] Remove dynamic update code
+
+As this basically makes builds unreproducale anyway, and the download
+URI is invariant meaning we can't even approximate the same logic via
+SRC_URI without having frequently changing Manifests, but no change in
+URI.
+
+diff -ruN Mozilla-PublicSuffix-v1.0.4.orig/Build.PL Mozilla-PublicSuffix-v1.0.4/Build.PL
+--- Mozilla-PublicSuffix-v1.0.4.orig/Build.PL	2021-05-04 21:45:11.000000000 +0200
++++ Mozilla-PublicSuffix-v1.0.4/Build.PL	2021-07-09 22:58:00.434038763 +0200
+@@ -5,11 +5,9 @@
+ use utf8;
+ use open ":encoding(UTF-8)";
+ use Carp qw(croak);
+-use HTTP::Tiny;
+ use Module::Build;
+ use IO::File;
+ use Tie::File;
+-use URI;
+ 
+ my $builder = Module::Build->new(
+     dist_name => "Mozilla-PublicSuffix",
+@@ -27,11 +25,9 @@
+     'perl' => '5.008'
+   },
+   'configure_requires' => {
+-    'HTTP::Tiny' => '0',
+     'IO::File' => '0',
+     'Module::Build' => '0.28',
+     'Tie::File' => '0',
+-    'URI' => '0',
+     'perl' => '5.008'
+   },
+   'requires' => {
+@@ -42,28 +38,6 @@
+ );
+ 
+ my $dat_file = "effective_tld_names.dat";
+-my $get_new_list = $builder->y_n(
+-    "Check for a new version of the Public Suffix List?", "N"
+-);
+-if ($get_new_list) {
+-    my $http = HTTP::Tiny->new( timeout => 6 );
+-    my $list_uri = URI->new(
+-        "https://publicsuffix.org/list/public_suffix_list.dat"
+-    );
+-    $list_uri->query_form({ raw => 1 });
+-    my %options = (
+-        headers => {
+-            "If-Modified-Since" => "Fri, 17 May 2013 00:00:00 UTC"
+-        }
+-    );
+-    my $response = $http->get($list_uri, \%options);
+-    if ( $response->{status} == 200 ) {
+-        IO::File->new($dat_file, "w")->print($response->{content});
+-    }
+-    elsif ( $response->{status} != 304 ) {
+-        croak "Unable to download public suffix list.";
+-    }
+-}
+ 
+ # Divide rules from list into sets:
+ my $rules = join " ", map {
+diff -ruN Mozilla-PublicSuffix-v1.0.4.orig/META.yml Mozilla-PublicSuffix-v1.0.4/META.yml
+--- Mozilla-PublicSuffix-v1.0.4.orig/META.yml	2021-05-04 21:45:11.000000000 +0200
++++ Mozilla-PublicSuffix-v1.0.4/META.yml	2021-07-09 22:58:15.717235925 +0200
+@@ -11,11 +11,9 @@
+   Test::More: '0'
+   perl: '5.008'
+ configure_requires:
+-  HTTP::Tiny: '0'
+   IO::File: '0'
+   Module::Build: '0.28'
+   Tie::File: '0'
+-  URI: '0'
+   perl: '5.008'
+ dynamic_config: 0
+ generated_by: 'Dist::Zilla version 6.015, CPAN::Meta::Converter version 2.150010'