Tolerate mixed case and leading zeroes when comparing.
authorDr. Stephen Henson <steve@openssl.org>
Tue, 1 Feb 2011 17:15:53 +0000 (17:15 +0000)
committerDr. Stephen Henson <steve@openssl.org>
Tue, 1 Feb 2011 17:15:53 +0000 (17:15 +0000)
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;
 }