From 3bee7ab59141f811ec9bd2e41d5ae94ab8426055 Mon Sep 17 00:00:00 2001
From: ianmdlvl <ianmdlvl>
Date: Thu, 17 Jan 2002 19:17:05 +0000
Subject: [PATCH 1/1] Allow invocation on 2nd-level domains by coping with
 superzone `.'

---
 debian/changelog   | 6 ++++++
 scripts/named-conf | 6 ++++--
 2 files changed, 10 insertions(+), 2 deletions(-)

diff --git a/debian/changelog b/debian/changelog
index 44f6ab1..3d20fe7 100644
--- a/debian/changelog
+++ b/debian/changelog
@@ -1,3 +1,9 @@
+chiark-utils (2.2.3) unstable; urgency=low
+
+  * Allow invocation on 2nd-level domains by coping with superzone `.'
+
+ --
+
 chiark-utils (2.2.2) unstable; urgency=low
 
   * chiark-named-conf does checks on all slaves even for `*' zones.
diff --git a/scripts/named-conf b/scripts/named-conf
index a43e5ab..ba36757 100755
--- a/scripts/named-conf
+++ b/scripts/named-conf
@@ -360,8 +360,10 @@ sub zone_investigate() {
 	$super_zone= $zone;
 	for (;;) {
 	    debug_trace("zone $zone superzone $super_zone");
+	    $super_zone eq '.'
+		and die "no superzone ? ($super_zone)\n";
 	    $super_zone =~ s/^[^.]+\.//
-		or die "no superzone ? ($super_zone)\n";
+		or $super_zone= '.';
 	    ($rcode,@start_nsnames)=
 		lookup($super_zone,'ns-','06',"superzone search");
 	    last if !$rcode;
@@ -698,7 +700,7 @@ sub lookup ($$$$) {
     defined($c= open $h, "-|") or die "$quis: fork adnshost:\n $!\n";
     if (!$c) {
 	exec 'adnshost','-Fi','+Do','+Dt','+Dc','-Cf',"-t$type",
-	     '-',"$domain.";
+	     '-',"$domain";
 	die "$quis: exec adnshost:\n $!\n";
     }
     @result= $h->getlines();
-- 
2.30.2