1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
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'
|