Fix up a Perl unused assignment warning.

internet2 · Jan 17, 2014 · eef92df · eef92df
1 parent 019db23
commit eef92df
Showing 1 changed file with 2 additions and 6 deletions.
diff --git 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;