Chinaunix首页 | 论坛 | 博客
  • 博客访问: 5351637
  • 博文数量: 1144
  • 博客积分: 11974
  • 博客等级: 上将
  • 技术积分: 12312
  • 用 户 组: 普通用户
  • 注册时间: 2005-04-13 20:06
文章存档

2017年(2)

2016年(14)

2015年(10)

2014年(28)

2013年(23)

2012年(29)

2011年(53)

2010年(86)

2009年(83)

2008年(43)

2007年(153)

2006年(575)

2005年(45)

分类: PERL

2014-12-10 20:27:53

cd /root
wget http://files1.directadmin.com/services/custombuild/patches/dns_resolver.patch
patch -p0 < dns_resolver.patch

###################################below
[root@user SpamAssassin]# cat dns_resolver.patch
--- spamassassin/trunk/lib/Mail/SpamAssassin/DnsResolver.pm     2014/06/18 16:47:04     1603517
+++ spamassassin/trunk/lib/Mail/SpamAssassin/DnsResolver.pm     2014/06/18 16:48:04     1603518
@@ -204,8 +204,10 @@
     @ns_addr_port = @{$self->{conf}->{dns_servers}};
     dbg("dns: servers set by config to: %s", join(', ',@ns_addr_port));
   } elsif ($res) {  # default as provided by Net::DNS, e.g. /etc/resolv.conf
-    @ns_addr_port = map(untaint_var("[$_]:" . $res->{port}),
-                        @{$res->{nameservers}});
+    my @ns = $res->UNIVERSAL::can('nameservers') ? $res->nameservers
+                                                 : @{$res->{nameservers}};
+    my $port = $res->UNIVERSAL::can('port') ? $res->port : $res->{port};
+    @ns_addr_port = map(untaint_var("[$_]:" . $port), @ns);
     dbg("dns: servers obtained from Net::DNS : %s", join(', ',@ns_addr_port));
   }
   return @ns_addr_port;


阅读(960) | 评论(0) | 转发(0) |
给主人留下些什么吧!~~