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 851cc98..0b6ac0f 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;
 }