Additional sanity check.
authorDr. Stephen Henson <steve@openssl.org>
Wed, 19 Mar 2008 14:18:36 +0000 (14:18 +0000)
committerDr. Stephen Henson <steve@openssl.org>
Wed, 19 Mar 2008 14:18:36 +0000 (14:18 +0000)
crypto/objects/objects.pl

index 76c06cc8f9a295e9188176a4c3a50611e7db54ee..9bb26e2909f28464b45b3df759a092bd71df38fe 100644 (file)
@@ -14,6 +14,8 @@ while(<NUMIN>)
        $Cname =~ s/^X//;
        if (defined($nidn{$mynum}))
                { die "$ARGV[1]:$o:There's already an object with NID ",$mynum," on line ",$order{$mynum},"\n"; }
+       if (defined($nid{$Cname}))
+               { die "$ARGV[1]:$o:There's already an object with name ",$mynum," on line ",$order{$nid{$Cname}},"\n"; }
        $nid{$Cname} = $mynum;
        $nidn{$mynum} = $Cname;
        $order{$mynum} = $o;