From: Dr. Stephen Henson 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://git.openssl.org/?p=openssl.git;a=commitdiff_plain;h=2ecc150530aeb416def9abadace50f1adfe0ad2d;hp=3c2c4cc5f2a1b9e25c704ea2d9e7a65bcaa4f64e;ds=sidebyside 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; }