1 files changed, 81 insertions, 0 deletions
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'