From eef92dfba25b4aaba94916fc16864e898315ace3 Mon Sep 17 00:00:00 2001
From: Ian Young <ian@iay.org.uk>
Date: Fri, 17 Jan 2014 11:08:34 +0000
Subject: [PATCH] Fix up a Perl unused assignment warning.

---
 mdx/uk/check_authorities.pl | 8 ++------
 1 file changed, 2 insertions(+), 6 deletions(-)

diff --git a/mdx/uk/check_authorities.pl b/mdx/uk/check_authorities.pl
index db51f607..2d5f1ee2 100755
--- a/mdx/uk/check_authorities.pl
+++ b/mdx/uk/check_authorities.pl
@@ -93,13 +93,9 @@ sub comment {
 			}
 			
 			#
-			# Extract the public key modulus and exponent.
+			# Extract the public key exponent.
 			#
-			if (/^Modulus=(.*)$/) {
-				$modulus = $_;
-				# print "   modulus: $modulus\n";
-				next;
-			} elsif (/Exponent: (\d+)/) {
+			if (/Exponent: (\d+)/) {
 				$exponent = $1;
 				# print "   exponent: $exponent\n";
 				next;