diff options
author | Dr. Stephen Henson <steve@openssl.org> | 2008-03-19 14:18:36 +0000 |
---|---|---|
committer | Dr. Stephen Henson <steve@openssl.org> | 2008-03-19 14:18:36 +0000 |
commit | 041e7f2eee6a16a99f9edb5ce8e81878766199a8 (patch) | |
tree | 472c9689174b1e4d37b288f4b2576954493e79ae /crypto/objects/objects.pl | |
parent | ab124380301794abe87583b7a88156eaff1c2eae (diff) |
Additional sanity check.
Diffstat (limited to 'crypto/objects/objects.pl')
-rw-r--r-- | crypto/objects/objects.pl | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/crypto/objects/objects.pl b/crypto/objects/objects.pl index 76c06cc8f9..9bb26e2909 100644 --- a/crypto/objects/objects.pl +++ b/crypto/objects/objects.pl @@ -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; |