Tolerate mixed case and leading zeroes when comparing.
[openssl.git] / fips / fipsalgtest.pl
index 851cc98dd9f16076ea3bc08dd06bda11a2ef0492..0b6ac0f3fa691f2f1d264c85e1a0e0b89bc142ca 100644 (file)
@@ -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;
 }