This patch hopefully works around these error messages:

"my" variable $types_aref masks earlier declaration in same scope at ./dns_tree line 368.
"my" variable $ns masks earlier declaration in same scope at ./dns_tree line 370.

which I assume are generated by a version of perl newer than
5.003 (what I currently run).


--- dns_tree	1997/11/26 17:27:12	1.15
+++ dns_tree	1997/12/12 01:59:00	1.16
@@ -3,7 +3,7 @@
 #
 # dns_tree
 # Copyright (C) 1997 by John Heidemann
-# $Id: dns_tree,v 1.15 1997/11/26 17:27:12 johnh Exp $
+# $Id: dns_tree,v 1.16 1997/12/12 01:59:00 johnh Exp $
 # 
 # This program is free software; you can redistribute it and/or
 # modify it under the terms of the GNU General Public License
@@ -364,8 +364,7 @@
 	return;
     };
 
-    my($ns);
-    my($types_aref) = (defined($opts{'types'}) ? $opts{'types'} : [qw(NS A CNAME)]);
+    $types_aref = (defined($opts{'types'}) ? $opts{'types'} : [qw(NS A CNAME)]);
     push (@$types_aref, qw(i e m));
     my($res_ref, $ns) = fetch_level($name, $types_aref);
     if (defined($res_ref)) {
