4634. [contrib] check5011.pl needs to handle optional space before

                        semi-colon in +multi-line output. [RT #45352]

(cherry picked from commit ed2659c9747d917a3cbec336790e7583056bc563)

diff --git a/CHANGES b/CHANGES
index 396941b4ec0d3c94f829791efe81df5ea22f2def..96f54611b806be1a60197a87c680dd32d9882fb3 100644 (file)
--- a/CHANGES
+++ b/CHANGES
@@ -1,3 +1,6 @@
+4634.  [contrib]       check5011.pl needs to handle optional space before
+                       semi-colon in +multi-line output. [RT #45352]
+
 4633.  [maint]         Updated AAAA (2001:500:200::b) for B.ROOT-SERVERS.NET.
 
 4632.  [security]      The BIND installer on Windows used an unquoted

diff --git a/contrib/scripts/check5011.pl b/contrib/scripts/check5011.pl
index d4f2d3f1eb44302212c993fb100a68b2fe7cf53a..0751a80d49e01dc8d0e6167cd9ac42edebeb14e5 100644 (file)
--- a/contrib/scripts/check5011.pl
+++ b/contrib/scripts/check5011.pl
@@ -27,7 +27,7 @@ sub getkey ($$) {
                last if m{^[)]};
                $data .= $_;
        }
-       m{ alg = (\S+); key id = (\d+)};
+       m{ alg = (\S+)\s*; key id = (\d+)};
        $k->{alg}  = $1;
        $k->{id}   = $2;
        $k->{data} = $data;