I tried to report to the bug tracker but it's down:
https://issues.apache.org/SpamAssassin/
Net::DNS has broken sa-update - https://rt.cpan.org/Ticket/Display.html?id=81760
This patch to sa-update would work around Net::DNS 0.70. $1 should never be
used anyways unless you're sure the regex matched. It's just asking for
trouble. Also local $1 makes me nervous. It could potentially behave different
on different versions of perl depending on if bugs existed with local or $1.
diff --git a/sa-update b/sa-update
--- sa-update 2012-12-06 21:52:30.361227839 -0600
+++ sa-update.n 2012-12-06 22:42:23.072973940 -0600
@@ -1139,9 +1139,8 @@
if ($RR) {
foreach my $rr ($RR->answer) {
my $text = $rr->rdatastr;
- local($1);
- $text =~ /^"(.*)"$/;
- push @result, $1;
+ $text =~ s/^"|"$//g;
+ push @result, $text;
}
}
else {
