Date: Fri, 12 May 2017 19:48:17 +0000 (UTC) From: Mark Felder <feld@FreeBSD.org> To: ports-committers@freebsd.org, svn-ports-all@freebsd.org, svn-ports-head@freebsd.org Subject: svn commit: r440707 - in head/dns/dnswalk: . files Message-ID: <201705121948.v4CJmHvJ001080@repo.freebsd.org>
next in thread | raw e-mail | index | archive | help
Author: feld Date: Fri May 12 19:48:17 2017 New Revision: 440707 URL: https://svnweb.freebsd.org/changeset/ports/440707 Log: dns/dnswalk: Unbreak port Deprecated Perl syntax was preventing the port from working. Approved by: portmgr MFH: 2017Q2 Added: head/dns/dnswalk/files/ head/dns/dnswalk/files/patch-dnswalk (contents, props changed) Modified: head/dns/dnswalk/Makefile Modified: head/dns/dnswalk/Makefile ============================================================================== --- head/dns/dnswalk/Makefile Fri May 12 19:39:06 2017 (r440706) +++ head/dns/dnswalk/Makefile Fri May 12 19:48:17 2017 (r440707) @@ -3,7 +3,7 @@ PORTNAME= dnswalk PORTVERSION= 2.0.2 -PORTREVISION= 2 +PORTREVISION= 3 CATEGORIES= dns MASTER_SITES= SF Added: head/dns/dnswalk/files/patch-dnswalk ============================================================================== --- /dev/null 00:00:00 1970 (empty, because file is newly added) +++ head/dns/dnswalk/files/patch-dnswalk Fri May 12 19:48:17 2017 (r440707) @@ -0,0 +1,32 @@ +--- dnswalk.orig 2017-05-12 19:34:32 UTC ++++ dnswalk +@@ -56,9 +56,9 @@ sub dowalk { + return unless $domain; + print "Checking $domain\n"; + @subdoms=&doaxfr($domain); +- &check_zone($domain) if (defined(@zone) && @zone); ++ &check_zone($domain) if (@zone); + undef @zone; +- return if (!(defined(@subdoms) && @subdoms)); ++ return if (! @subdoms); + @sortdoms = sort byhostname @subdoms; + local ($subdom); + if ($opt_r) { +@@ -84,7 +84,7 @@ sub doaxfr { + my $res = new Net::DNS::Resolver; + $res->nameservers($server); + @zone=$res->axfr($domain); +- unless (defined(@zone) && @zone) { ++ unless (@zone) { + print STDERR "failed\n"; + &printerr("FAIL", + "Zone transfer of $domain from $server failed: ". +@@ -104,7 +104,7 @@ sub doaxfr { + print STDERR "done.\n"; + last SERVER; + } # foreach # +- unless (defined(@zone) && @zone) { ++ unless (@zone) { + &printerr("BAD","All zone transfer attempts of $domain failed!\n"); + return undef; + }
Want to link to this message? Use this URL: <https://mail-archive.FreeBSD.org/cgi/mid.cgi?201705121948.v4CJmHvJ001080>