Fix buggy object definitions (Svenning Sorensen <sss@sss.dnsalias.net>).

[openssl.git] / crypto / objects / objects.pl

diff --git a/crypto/objects/objects.pl b/crypto/objects/objects.pl
index 3a1da4919d60296897ff80a36eb74c1a7b6e64fe..76c06cc8f9a295e9188176a4c3a50611e7db54ee 100644 (file)
--- a/crypto/objects/objects.pl
+++ b/crypto/objects/objects.pl
@@ -210,6 +210,8 @@ sub process_oid
        if (!($a[0] =~ /^[0-9]+$/))
                {
                $a[0] =~ s/-/_/g;
        if (!($a[0] =~ /^[0-9]+$/))
                {
                $a[0] =~ s/-/_/g;

+               if (!defined($obj{$a[0]}))
+                       { die "$ARGV[0]:$o:Undefined identifier ",$a[0],"\n"; }

                $pref_oid = "OBJ_" . $a[0];
                $pref_sep = ",";
                shift @a;
                $pref_oid = "OBJ_" . $a[0];
                $pref_sep = ",";
                shift @a;