diff options
author | Richard Levitte <levitte@openssl.org> | 2000-07-08 07:56:12 +0000 |
---|---|---|
committer | Richard Levitte <levitte@openssl.org> | 2000-07-08 07:56:12 +0000 |
commit | 27d7260075ba525c69e5b8e8ccb1b98010b56dd3 (patch) | |
tree | dd1dea9e788ba5accb2688f4a499098f5e0d6119 /crypto/objects/objects.pl | |
parent | a338e21bd1f1654b9fc90352a45e054be1f947eb (diff) | |
download | openssl-27d7260075ba525c69e5b8e8ccb1b98010b56dd3.tar.gz |
Corrected small bug that could add ',L' when it shouldn't
Diffstat (limited to 'crypto/objects/objects.pl')
-rw-r--r-- | crypto/objects/objects.pl | 15 |
1 files changed, 13 insertions, 2 deletions
diff --git a/crypto/objects/objects.pl b/crypto/objects/objects.pl index 04fcdec207..c956bbb841 100644 --- a/crypto/objects/objects.pl +++ b/crypto/objects/objects.pl @@ -203,11 +203,22 @@ sub process_oid @a = split(/\s+/,$myoid); $pref_oid = ""; + $pref_sep = ""; if (!($a[0] =~ /^[0-9]+$/)) { $a[0] =~ s/-/_/g; - $pref_oid = "OBJ_" . $a[0] . ','; + $pref_oid = "OBJ_" . $a[0]; + $pref_sep = ","; shift @a; } - return($pref_oid . join('L,',@a) . 'L'); + $oids = join('L,',@a) . "L"; + if ($oids ne "L") + { + $oids = $pref_oid . $pref_sep . $oids; + } + else + { + $oids = $pref_oid; + } + return($oids); } |