Fix typo in Ordinals.pm from PR #14074

Reviewed-by: Hugo Landau <hlandau@openssl.org>
Reviewed-by: David von Oheimb <david.von.oheimb@siemens.com>
Reviewed-by: Paul Dale <pauli@openssl.org>
Reviewed-by: Richard Levitte <levitte@openssl.org>
(Merged from https://github.com/openssl/openssl/pull/20201)

(cherry picked from commit 77c8d6d703efd1d935b5c2603fd31f4b15b1214d)

diff --git a/util/perl/OpenSSL/Ordinals.pm b/util/perl/OpenSSL/Ordinals.pm
index f6c63d14c471fa6f7b763cf303174ab641e178af..78f406499a9ffab22908cd5961d632d4a40b3787 100644 (file)
--- a/util/perl/OpenSSL/Ordinals.pm
+++ b/util/perl/OpenSSL/Ordinals.pm
@@ -349,7 +349,7 @@ sub _putback {
         croak "Duplicate entries for ".$items[0]->name()." from ".
             $items[0]->source()." and ".$items[1]->source()."\n"
             if $items[0]->name() eq $items[1]->name()
-            && $items[0]->type() eq $items[2]->type()
+            && $items[0]->type() eq $items[1]->type()
             && $items[0]->platforms() eq $items[1]->platforms();
 
         # Check that all platforms exist in both items, and have opposite values