Tolerate mixed case and leading zeroes when comparing.

2011-02-01 17:15:53 +00:00 · 2011-02-01 17:15:53 +00:00 · 2ecc150530
commit 2ecc150530
parent 3c2c4cc5f2
1 changed files with 4 additions and 1 deletions
--- 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;
 }