From 09637af24ab40649fbfcf8079dbc86e357942492 Mon Sep 17 00:00:00 2001
From: Evan Hunt <each@isc.org>
Date: Tue, 16 Apr 2013 14:05:25 -0700
Subject: [PATCH] [master] another check5011 bugfix

---
 contrib/check5011.pl | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/contrib/check5011.pl b/contrib/check5011.pl
index 5306e8bfb2..d4f2d3f1eb 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;
 }