Tolerate mixed case and leading zeroes when comparing.
diff --git a/fips/fipsalgtest.pl b/fips/fipsalgtest.pl index 851cc98..0b6ac0f 100644 --- a/fips/fipsalgtest.pl +++ b/fips/fipsalgtest.pl
@@ -881,7 +881,10 @@ s/\s+/ /g; # Delete trailing whitespace s/\s+$//; - return $_; + # Remove leading zeroes + s/= 00/= /; + # Translate to upper case + return uc $_; } return undef; }