diff options
author | Bodo Möller <bodo@openssl.org> | 2001-03-06 08:58:38 +0000 |
---|---|---|
committer | Bodo Möller <bodo@openssl.org> | 2001-03-06 08:58:38 +0000 |
commit | 1d00800e88d56f1a0776c6cf99b48ddcd31108fd (patch) | |
tree | 87b5e020576ffecf09e91f5fe168635c439b2eca /crypto/objects/objects.pl | |
parent | 774530f4121afdafa9b43632f8e7a4a68014278c (diff) |
Change obj_... generation so that it does not generate rubbish or
abort with errors if no name is defined for some object, which was the
case for 'pilotAttributeType 27'.
Also avoid this very situation by assigning the name
'pilotAttributeType27'.
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 c956bbb841..41fa4147e3 100644 --- a/crypto/objects/objects.pl +++ b/crypto/objects/objects.pl @@ -9,7 +9,9 @@ while(<NUMIN>) $o++; s/#.*$//; next if /^\s*$/; + $_ = 'X'.$_; ($Cname,$mynum) = split; + $Cname =~ s/^X//; if (defined($nidn{$mynum})) { die "$ARGV[1]:$o:There's already an object with NID ",$mynum," on line ",$order{$mynum},"\n"; } $nid{$Cname} = $mynum; |