--- /dev/null
+--- dnswalk.orig 2005-06-17 19:35:35.428688162 +0900
++++ dnswalk 2005-06-17 19:36:07.447322829 +0900
+@@ -230,12 +230,12 @@
+ }
+ elsif ($opt_F && !&equal($name,$rr->name)) {
+ # Filter out "hostname-something" (like "neptune-le0")
+- if (index(split (/\./, $rr->name, 2) . "-",
+- split (/\./, $name, 2)) == -1 ) {
++# if (index(split (/\./, $rr->name, 2) . "-",
++# split (/\./, $name, 2)) == -1 ) {
+ &printerr("WARN", $rr->name ." A ".
+ $rr->address .": points to $name\n")
+ if ((split(/\./,$name))[0] ne "localhost");
+- }
++# }
+ }
+ if ($main'opt_a) {
+ # keep list in %glues, report any duplicates
--- /dev/null
+diff -Naur dnswalk-2.0.2/dnswalk dnswalk-2.0.2.oden/dnswalk
+--- dnswalk-2.0.2/dnswalk 1997-10-06 09:24:00.000000000 -0400
++++ dnswalk-2.0.2.oden/dnswalk 2002-06-29 06:48:54.000000000 -0400
+@@ -1,4 +1,4 @@
+-#!/usr/contrib/bin/perl
++#!/usr/bin/perl
+ #
+ # dnswalk Walk through a DNS tree, pulling out zone data and
+ # dumping it in a directory tree
+diff -Naur dnswalk-2.0.2/makereports dnswalk-2.0.2.oden/makereports
+--- dnswalk-2.0.2/makereports 1997-08-11 09:52:37.000000000 -0400
++++ dnswalk-2.0.2.oden/makereports 2002-06-29 06:49:24.000000000 -0400
+@@ -1,4 +1,4 @@
+-#!/usr/contrib/bin/perl
++#!/usr/bin/perl
+ # This takes output from dnswalk and makes a "rep.orts" directory
+ # with one file per contact. Great for sending mail to all the admins.
+