From: Dr. Stephen Henson <steve@openssl.org>
Date: Tue, 1 Feb 2011 17:15:53 +0000 (+0000)
Subject: Tolerate mixed case and leading zeroes when comparing.
X-Git-Tag: OpenSSL-fips-2_0-rc1~815
X-Git-Url: https://granicus.if.org/sourcecode?a=commitdiff_plain;h=2ecc150530aeb416def9abadace50f1adfe0ad2d;p=openssl

Tolerate mixed case and leading zeroes when comparing.
---

diff --git a/fips/fipsalgtest.pl b/fips/fipsalgtest.pl
index 851cc98dd9..0b6ac0f3fa 100644
--- a/fips/fipsalgtest.pl
+++ b/fips/fipsalgtest.pl
@@ -881,7 +881,10 @@ sub next_line {
         s/\s+/ /g;
 	# Delete trailing whitespace
 	s/\s+$//;
-        return $_;
+	# Remove leading zeroes
+	s/= 00/= /;
+	# Translate to upper case
+        return uc $_;
     }
     return undef;
 }