From: Evan Hunt <each@isc.org>
Date: Tue, 16 Apr 2013 21:05:25 +0000 (-0700)
Subject: [master] another check5011 bugfix
X-Git-Tag: v9.10.0a1~408
X-Git-Url: http://git.ipfire.org/gitweb/?a=commitdiff_plain;h=09637af24ab40649fbfcf8079dbc86e357942492;p=thirdparty%2Fbind9.git

[master] another check5011 bugfix
---

diff --git a/contrib/check5011.pl b/contrib/check5011.pl
index 5306e8bfb26..d4f2d3f1eb4 100644
--- a/contrib/check5011.pl
+++ b/contrib/check5011.pl
@@ -63,6 +63,7 @@ sub digkeys ($) {
 }
 
 my $anchor;
+my $owner = ".";
 while (<>) {
 	next unless m{^([a-z0-9.-]*)\s+KEYDATA\s+(\d+)\s+(\d+)\s+(\d+)\s+};
 	my $k = getkey *ARGV, {
@@ -71,6 +72,11 @@ while (<>) {
 		addhd    => $3,
 		removehd => $4,
 	};
+	if ($k->{name} eq "") {
+		$k->{name} = $owner;
+	} else {
+		$owner = $k->{name};
+	}
 	$k->{name} =~ s{[.]*$}{.};
 	push @{$anchor->{$k->{name}}}, $k;
 }