diff options
author | Leonardo Arena <rnalrd@gmail.com> | 2010-10-27 09:49:27 +0000 |
---|---|---|
committer | Leonardo Arena <rnalrd@gmail.com> | 2010-10-27 10:01:00 +0000 |
commit | aac97cbcb6afa0535229da96dc65d50ca7f93c9e (patch) | |
tree | 255738f883eaa2a172769d9a18938202d1f06e06 | |
parent | 276da4ae3a17959aacf296a77817eed7f091547a (diff) | |
download | alpine_aports-aac97cbcb6afa0535229da96dc65d50ca7f93c9e.tar.bz2 alpine_aports-aac97cbcb6afa0535229da96dc65d50ca7f93c9e.tar.xz alpine_aports-aac97cbcb6afa0535229da96dc65d50ca7f93c9e.zip |
main/spamassassin: rebuild against perl 5.12.2
-rw-r--r-- | main/spamassassin/APKBUILD | 9 | ||||
-rw-r--r-- | main/spamassassin/spamassassin-3.3.1-PERL-5-12.patch | 240 |
2 files changed, 246 insertions, 3 deletions
diff --git a/main/spamassassin/APKBUILD b/main/spamassassin/APKBUILD index 87ec63dced..25134e6805 100644 --- a/main/spamassassin/APKBUILD +++ b/main/spamassassin/APKBUILD | |||
@@ -2,7 +2,7 @@ | |||
2 | pkgname=spamassassin | 2 | pkgname=spamassassin |
3 | _realname=Mail-SpamAssassin | 3 | _realname=Mail-SpamAssassin |
4 | pkgver=3.3.1 | 4 | pkgver=3.3.1 |
5 | pkgrel=3 | 5 | pkgrel=4 |
6 | pkgdesc="The Powerful #1 Open-Source Spam Filter" | 6 | pkgdesc="The Powerful #1 Open-Source Spam Filter" |
7 | url="http://spamassassin.apache.org" | 7 | url="http://spamassassin.apache.org" |
8 | license="Apache" | 8 | license="Apache" |
@@ -10,10 +10,12 @@ depends="perl perl-digest-sha1 perl-time-hires perl-netaddr-ip perl-mail-dkim pe | |||
10 | makedepends="perl-dev zlib-dev" | 10 | makedepends="perl-dev zlib-dev" |
11 | install= | 11 | install= |
12 | subpackages="$pkgname-doc" | 12 | subpackages="$pkgname-doc" |
13 | source="http://www.apache.org/dist/spamassassin/source/$_realname-$pkgver.tar.gz" | 13 | source="http://www.apache.org/dist/spamassassin/source/$_realname-$pkgver.tar.gz |
14 | spamassassin-3.3.1-PERL-5-12.patch" | ||
14 | 15 | ||
15 | prepare() { | 16 | prepare() { |
16 | cd "$srcdir/$_realname-$pkgver" | 17 | cd "$srcdir/$_realname-$pkgver" |
18 | patch -p2 < ../spamassassin-3.3.1-PERL-5-12.patch || return 1 | ||
17 | } | 19 | } |
18 | 20 | ||
19 | build() { | 21 | build() { |
@@ -34,4 +36,5 @@ package() { | |||
34 | find "$pkgdir" -name perllocal.pod -delete | 36 | find "$pkgdir" -name perllocal.pod -delete |
35 | } | 37 | } |
36 | 38 | ||
37 | md5sums="5a93f81fda315411560ff5da099382d2 Mail-SpamAssassin-3.3.1.tar.gz" | 39 | md5sums="5a93f81fda315411560ff5da099382d2 Mail-SpamAssassin-3.3.1.tar.gz |
40 | aea0b415deb2a827c50653dafb80d6e4 spamassassin-3.3.1-PERL-5-12.patch" | ||
diff --git a/main/spamassassin/spamassassin-3.3.1-PERL-5-12.patch b/main/spamassassin/spamassassin-3.3.1-PERL-5-12.patch new file mode 100644 index 0000000000..5b4039c4d5 --- /dev/null +++ b/main/spamassassin/spamassassin-3.3.1-PERL-5-12.patch | |||
@@ -0,0 +1,240 @@ | |||
1 | diff -ur a/Mail-SpamAssassin-3.3.1/lib/Mail/SpamAssassin/Dns.pm b/Mail-SpamAssassin-3.3.1/lib/Mail/SpamAssassin/Dns.pm | ||
2 | --- a/Mail-SpamAssassin-3.3.1/lib/Mail/SpamAssassin/Dns.pm 2010-03-16 10:49:21.000000000 -0400 | ||
3 | +++ b/Mail-SpamAssassin-3.3.1/lib/Mail/SpamAssassin/Dns.pm 2010-07-20 15:54:23.000000000 -0400 | ||
4 | @@ -754,7 +754,7 @@ | ||
5 | dbg("dns: entering helper-app run mode"); | ||
6 | $self->{old_slash} = $/; # Razor pollutes this | ||
7 | %{$self->{old_env}} = (); | ||
8 | - if ( defined %ENV ) { | ||
9 | + if ( %ENV ) { | ||
10 | # undefined values in %ENV can result due to autovivification elsewhere, | ||
11 | # this prevents later possible warnings when we restore %ENV | ||
12 | while (my ($key, $value) = each %ENV) { | ||
13 | Only in b/Mail-SpamAssassin-3.3.1/lib/Mail/SpamAssassin: Dns.pm~ | ||
14 | diff -ur a/Mail-SpamAssassin-3.3.1/lib/Mail/SpamAssassin/HTML.pm b/Mail-SpamAssassin-3.3.1/lib/Mail/SpamAssassin/HTML.pm | ||
15 | --- a/Mail-SpamAssassin-3.3.1/lib/Mail/SpamAssassin/HTML.pm 2010-03-16 10:49:21.000000000 -0400 | ||
16 | +++ b/Mail-SpamAssassin-3.3.1/lib/Mail/SpamAssassin/HTML.pm 2010-07-20 15:52:50.000000000 -0400 | ||
17 | @@ -191,7 +191,7 @@ | ||
18 | my $self = shift; | ||
19 | my %options = @_; | ||
20 | |||
21 | - return join('', @{ $self->{text} }) unless keys %options; | ||
22 | + return join('', @{ $self->{text} }) unless %options; | ||
23 | |||
24 | my $mask; | ||
25 | while (my ($k, $v) = each %options) { | ||
26 | Only in b/Mail-SpamAssassin-3.3.1/lib/Mail/SpamAssassin: HTML.pm~ | ||
27 | diff -ur a/Mail-SpamAssassin-3.3.1/lib/Mail/SpamAssassin/Plugin/BodyEval.pm b/Mail-SpamAssassin-3.3.1/lib/Mail/SpamAssassin/Plugin/BodyEval.pm | ||
28 | --- a/Mail-SpamAssassin-3.3.1/lib/Mail/SpamAssassin/Plugin/BodyEval.pm 2010-03-16 10:49:21.000000000 -0400 | ||
29 | +++ b/Mail-SpamAssassin-3.3.1/lib/Mail/SpamAssassin/Plugin/BodyEval.pm 2010-07-20 16:04:57.000000000 -0400 | ||
30 | @@ -119,7 +119,7 @@ | ||
31 | } | ||
32 | |||
33 | # If there are no words, mark if there's at least 1 image ... | ||
34 | - if (keys %html == 0 && exists $pms->{html}{inside}{img}) { | ||
35 | + if (!%html && exists $pms->{html}{inside}{img}) { | ||
36 | # Use "\n" as the mark since it can't ever occur normally | ||
37 | $html{"\n"}=1; | ||
38 | } | ||
39 | Only in b/Mail-SpamAssassin-3.3.1/lib/Mail/SpamAssassin/Plugin: BodyEval.pm~ | ||
40 | Only in b/Mail-SpamAssassin-3.3.1/lib/Mail/SpamAssassin/Plugin: check.patch | ||
41 | diff -ur a/Mail-SpamAssassin-3.3.1/lib/Mail/SpamAssassin/Plugin/Check.pm b/Mail-SpamAssassin-3.3.1/lib/Mail/SpamAssassin/Plugin/Check.pm | ||
42 | --- a/Mail-SpamAssassin-3.3.1/lib/Mail/SpamAssassin/Plugin/Check.pm 2010-03-16 10:49:21.000000000 -0400 | ||
43 | +++ b/Mail-SpamAssassin-3.3.1/lib/Mail/SpamAssassin/Plugin/Check.pm 2010-07-20 16:03:00.000000000 -0400 | ||
44 | @@ -307,64 +307,51 @@ | ||
45 | my $package_name = __PACKAGE__; | ||
46 | my $methodname = $package_name."::_".$ruletype."_tests_".$clean_priority; | ||
47 | |||
48 | - if (defined &{$methodname} && !$doing_user_rules) { | ||
49 | -run_compiled_method: | ||
50 | - # dbg("rules: run_generic_tests - calling %s", $methodname); | ||
51 | - my $t = Mail::SpamAssassin::Timeout->new({ deadline => $master_deadline }); | ||
52 | - my $err = $t->run(sub { | ||
53 | - no strict "refs"; | ||
54 | - $methodname->($pms, @{$opts{args}}); | ||
55 | - }); | ||
56 | - if ($t->timed_out() && $master_deadline && time > $master_deadline) { | ||
57 | - info("check: exceeded time limit in $methodname, skipping further tests"); | ||
58 | - $pms->{deadline_exceeded} = 1; | ||
59 | - } | ||
60 | - return; | ||
61 | - } | ||
62 | + if (!defined &{$methodname} || $doing_user_rules) { | ||
63 | |||
64 | - # use %nopts for named parameter-passing; it's more friendly to future-proof | ||
65 | - # subclassing, since new parameters can be added without breaking third-party | ||
66 | - # subclassed implementations of this plugin. | ||
67 | - my %nopts = ( | ||
68 | - ruletype => $ruletype, | ||
69 | - doing_user_rules => $doing_user_rules, | ||
70 | - priority => $priority, | ||
71 | - clean_priority => $clean_priority | ||
72 | - ); | ||
73 | - | ||
74 | - # build up the eval string... | ||
75 | - $self->{evalstr_methodname} = $methodname; | ||
76 | - $self->{evalstr_chunk_current_methodname} = undef; | ||
77 | - $self->{evalstr_chunk_methodnames} = []; | ||
78 | - $self->{evalstr_chunk_prefix} = []; # stack (array) of source code sections | ||
79 | - $self->{evalstr} = ''; $self->{evalstr_l} = 0; | ||
80 | - $self->{evalstr2} = ''; | ||
81 | - $self->begin_evalstr_chunk($pms); | ||
82 | - | ||
83 | - $self->push_evalstr_prefix($pms, ' | ||
84 | - # start_rules_plugin_code '.$ruletype.' '.$priority.' | ||
85 | - my $scoresptr = $self->{conf}->{scores}; | ||
86 | - '); | ||
87 | - if (defined $opts{pre_loop_body}) { | ||
88 | - $opts{pre_loop_body}->($self, $pms, $conf, %nopts); | ||
89 | - } | ||
90 | - $self->add_evalstr($pms, | ||
91 | - $self->start_rules_plugin_code($ruletype, $priority) ); | ||
92 | - while (my($rulename, $test) = each %{$opts{testhash}->{$priority}}) { | ||
93 | - $opts{loop_body}->($self, $pms, $conf, $rulename, $test, %nopts); | ||
94 | - } | ||
95 | - if (defined $opts{post_loop_body}) { | ||
96 | - $opts{post_loop_body}->($self, $pms, $conf, %nopts); | ||
97 | - } | ||
98 | + # use %nopts for named parameter-passing; it's more friendly | ||
99 | + # to future-proof subclassing, since new parameters can be added without | ||
100 | + # breaking third-party subclassed implementations of this plugin. | ||
101 | + my %nopts = ( | ||
102 | + ruletype => $ruletype, | ||
103 | + doing_user_rules => $doing_user_rules, | ||
104 | + priority => $priority, | ||
105 | + clean_priority => $clean_priority | ||
106 | + ); | ||
107 | + | ||
108 | + # build up the eval string... | ||
109 | + $self->{evalstr_methodname} = $methodname; | ||
110 | + $self->{evalstr_chunk_current_methodname} = undef; | ||
111 | + $self->{evalstr_chunk_methodnames} = []; | ||
112 | + $self->{evalstr_chunk_prefix} = []; # stack (array) of source code sections | ||
113 | + $self->{evalstr} = ''; $self->{evalstr_l} = 0; | ||
114 | + $self->{evalstr2} = ''; | ||
115 | + $self->begin_evalstr_chunk($pms); | ||
116 | + | ||
117 | + $self->push_evalstr_prefix($pms, ' | ||
118 | + # start_rules_plugin_code '.$ruletype.' '.$priority.' | ||
119 | + my $scoresptr = $self->{conf}->{scores}; | ||
120 | + '); | ||
121 | + if (defined $opts{pre_loop_body}) { | ||
122 | + $opts{pre_loop_body}->($self, $pms, $conf, %nopts); | ||
123 | + } | ||
124 | + $self->add_evalstr($pms, | ||
125 | + $self->start_rules_plugin_code($ruletype, $priority) ); | ||
126 | + while (my($rulename, $test) = each %{$opts{testhash}->{$priority}}) { | ||
127 | + $opts{loop_body}->($self, $pms, $conf, $rulename, $test, %nopts); | ||
128 | + } | ||
129 | + if (defined $opts{post_loop_body}) { | ||
130 | + $opts{post_loop_body}->($self, $pms, $conf, %nopts); | ||
131 | + } | ||
132 | |||
133 | - $self->flush_evalstr($pms, 'run_generic_tests'); | ||
134 | - $self->free_ruleset_source($pms, $ruletype, $priority); | ||
135 | + $self->flush_evalstr($pms, 'run_generic_tests'); | ||
136 | + $self->free_ruleset_source($pms, $ruletype, $priority); | ||
137 | |||
138 | - # clear out a previous version of this method | ||
139 | - undef &{$methodname}; | ||
140 | + # clear out a previous version of this method | ||
141 | + undef &{$methodname}; | ||
142 | |||
143 | - # generate the loop that goes through each line... | ||
144 | - my $evalstr = <<"EOT"; | ||
145 | + # generate the loop that goes through each line... | ||
146 | + my $evalstr = <<"EOT"; | ||
147 | { | ||
148 | package $package_name; | ||
149 | |||
150 | @@ -373,40 +360,51 @@ | ||
151 | sub $methodname { | ||
152 | EOT | ||
153 | |||
154 | - for my $chunk_methodname (@{$self->{evalstr_chunk_methodnames}}) { | ||
155 | - $evalstr .= " $chunk_methodname(\@_);\n"; | ||
156 | - } | ||
157 | + for my $chunk_methodname (@{$self->{evalstr_chunk_methodnames}}) { | ||
158 | + $evalstr .= " $chunk_methodname(\@_);\n"; | ||
159 | + } | ||
160 | |||
161 | - $evalstr .= <<"EOT"; | ||
162 | + $evalstr .= <<"EOT"; | ||
163 | } | ||
164 | |||
165 | 1; | ||
166 | } | ||
167 | EOT | ||
168 | |||
169 | - delete $self->{evalstr}; # free up some RAM before we eval() | ||
170 | - delete $self->{evalstr2}; | ||
171 | - delete $self->{evalstr_methodname}; | ||
172 | - delete $self->{evalstr_chunk_current_methodname}; | ||
173 | - delete $self->{evalstr_chunk_methodnames}; | ||
174 | - delete $self->{evalstr_chunk_prefix}; | ||
175 | - | ||
176 | - dbg("rules: run_generic_tests - compiling eval code: %s, priority %s", | ||
177 | - $ruletype, $priority); | ||
178 | -# dbg("rules: eval code to compile: $evalstr"); | ||
179 | - my $eval_result; | ||
180 | - { my $timer = $self->{main}->time_method('compile_gen'); | ||
181 | - $eval_result = eval($evalstr); | ||
182 | - } | ||
183 | - if (!$eval_result) { | ||
184 | - my $eval_stat = $@ ne '' ? $@ : "errno=$!"; chomp $eval_stat; | ||
185 | - warn "rules: failed to compile $ruletype tests, skipping:\n". | ||
186 | - "\t($eval_stat)\n"; | ||
187 | - $pms->{rule_errors}++; | ||
188 | - } | ||
189 | - else { | ||
190 | + delete $self->{evalstr}; # free up some RAM before we eval() | ||
191 | + delete $self->{evalstr2}; | ||
192 | + delete $self->{evalstr_methodname}; | ||
193 | + delete $self->{evalstr_chunk_current_methodname}; | ||
194 | + delete $self->{evalstr_chunk_methodnames}; | ||
195 | + delete $self->{evalstr_chunk_prefix}; | ||
196 | + | ||
197 | + dbg("rules: run_generic_tests - compiling eval code: %s, priority %s", | ||
198 | + $ruletype, $priority); | ||
199 | + # dbg("rules: eval code to compile: $evalstr"); | ||
200 | + my $eval_result; | ||
201 | + { my $timer = $self->{main}->time_method('compile_gen'); | ||
202 | + $eval_result = eval($evalstr); | ||
203 | + } | ||
204 | + if (!$eval_result) { | ||
205 | + my $eval_stat = $@ ne '' ? $@ : "errno=$!"; chomp $eval_stat; | ||
206 | + warn "rules: failed to compile $ruletype tests, skipping:\n". | ||
207 | + "\t($eval_stat)\n"; | ||
208 | + $pms->{rule_errors}++; | ||
209 | + return; | ||
210 | + } | ||
211 | dbg("rules: compiled $ruletype tests"); | ||
212 | - goto run_compiled_method; | ||
213 | + } | ||
214 | + | ||
215 | +#run_compiled_method: | ||
216 | +# dbg("rules: run_generic_tests - calling %s", $methodname); | ||
217 | + my $t = Mail::SpamAssassin::Timeout->new({ deadline => $master_deadline }); | ||
218 | + my $err = $t->run(sub { | ||
219 | + no strict "refs"; | ||
220 | + $methodname->($pms, @{$opts{args}}); | ||
221 | + }); | ||
222 | + if ($t->timed_out() && $master_deadline && time > $master_deadline) { | ||
223 | + info("check: exceeded time limit in $methodname, skipping further tests"); | ||
224 | + $pms->{deadline_exceeded} = 1; | ||
225 | } | ||
226 | } | ||
227 | |||
228 | diff -ur a/Mail-SpamAssassin-3.3.1/lib/Mail/SpamAssassin/Plugin/MIMEEval.pm b/Mail-SpamAssassin-3.3.1/lib/Mail/SpamAssassin/Plugin/MIMEEval.pm | ||
229 | --- a/Mail-SpamAssassin-3.3.1/lib/Mail/SpamAssassin/Plugin/MIMEEval.pm 2010-03-16 10:49:21.000000000 -0400 | ||
230 | +++ b/Mail-SpamAssassin-3.3.1/lib/Mail/SpamAssassin/Plugin/MIMEEval.pm 2010-07-20 16:06:47.000000000 -0400 | ||
231 | @@ -498,7 +498,7 @@ | ||
232 | # perhaps just limit to test, and image? | ||
233 | next if ($ctype eq 'application/ics'); | ||
234 | |||
235 | - my $cte = lc $p->get_header('content-transfer-encoding') || ''; | ||
236 | + my $cte = lc($p->get_header('content-transfer-encoding') || ''); | ||
237 | next if ($cte !~ /^base64$/); | ||
238 | foreach my $l ( @{$p->raw()} ) { | ||
239 | my $len = length $l; | ||
240 | Only in b/Mail-SpamAssassin-3.3.1/lib/Mail/SpamAssassin/Plugin: MIMEEval.pm~ | ||