diff options
| author | feld <feld@FreeBSD.org> | 2017-05-13 03:48:17 +0800 |
|---|---|---|
| committer | feld <feld@FreeBSD.org> | 2017-05-13 03:48:17 +0800 |
| commit | 674687f54ded5a541caea055b5fe702de565d563 (patch) | |
| tree | 486d6fbcf59775abd6883f926679248d381eeed3 | |
| parent | dad27331348a11df6207adb2ecd532aae517f014 (diff) | |
| download | freebsd-ports-gnome-674687f54ded5a541caea055b5fe702de565d563.tar.gz freebsd-ports-gnome-674687f54ded5a541caea055b5fe702de565d563.tar.zst freebsd-ports-gnome-674687f54ded5a541caea055b5fe702de565d563.zip | |
dns/dnswalk: Unbreak port
Deprecated Perl syntax was preventing the port from working.
Approved by: portmgr
MFH: 2017Q2
| -rw-r--r-- | dns/dnswalk/Makefile | 2 | ||||
| -rw-r--r-- | dns/dnswalk/files/patch-dnswalk | 32 |
2 files changed, 33 insertions, 1 deletions
diff --git a/dns/dnswalk/Makefile b/dns/dnswalk/Makefile index a4f204574f35..8883540dcb9a 100644 --- a/dns/dnswalk/Makefile +++ b/dns/dnswalk/Makefile @@ -3,7 +3,7 @@ PORTNAME= dnswalk PORTVERSION= 2.0.2 -PORTREVISION= 2 +PORTREVISION= 3 CATEGORIES= dns MASTER_SITES= SF diff --git a/dns/dnswalk/files/patch-dnswalk b/dns/dnswalk/files/patch-dnswalk new file mode 100644 index 000000000000..d9f84ad83049 --- /dev/null +++ b/dns/dnswalk/files/patch-dnswalk @@ -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; + } |