From 4619daa5e0fb33b4b571c03a03dcb8bd4991eae3 Mon Sep 17 00:00:00 2001
From: Ian Young <ian@iay.org.uk>
Date: Thu, 6 Dec 2018 12:28:08 +0000
Subject: [PATCH] Report expiry whitelist size

---
 utilities/check_embedded.pl | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/utilities/check_embedded.pl b/utilities/check_embedded.pl
index 01dbbcad..f630b871 100755
--- a/utilities/check_embedded.pl
+++ b/utilities/check_embedded.pl
@@ -418,12 +418,16 @@ sub comment {
         print "Distinct RSA moduli: $distinct_moduli\n";
     }
 
+    if (%expiry_whitelist) {
+        print "\n";
+        my $nwhite = scalar(keys(%expiry_whitelist));
+        print "Expiry whitelist size: $nwhite\n";
+    }
     my $first = 1;
     foreach $fingerprint (sort keys %expiry_whitelist) {
         if ($expiry_whitelist{$fingerprint} eq 'unused') {
             if ($first) {
                 $first = 0;
-                print "\n";
                 print "Unused expiry whitelist fingerprints:\n";
             }
             print "   $fingerprint\n";