Commit 2ecc1505 authored by Dr. Stephen Henson's avatar Dr. Stephen Henson
Browse files

Tolerate mixed case and leading zeroes when comparing.

parent 3c2c4cc5

fips/fipsalgtest.pl

+4 −1
Original line number Diff line number Diff line
@@ -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;

}