generic-library/openssl
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Corrected small bug that could add ',L' when it shouldn't

Browse Source
This commit is contained in:
Richard Levitte 2000-07-08 07:56:12 +00:00
parent a338e21bd1
commit 27d7260075
2 changed files with 14 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
crypto/objects/obj_mac.h
View File

@ -1300,7 +1300,7 @@
#define NID_ad_dvcs 364 #define NID_ad_dvcs 364
#define OBJ_ad_dvcs OBJ_id_ad,4L #define OBJ_ad_dvcs OBJ_id_ad,4L
#define OBJ_id_pkix_OCSP OBJ_ad_OCSP,L #define OBJ_id_pkix_OCSP OBJ_ad_OCSP
#define SN_id_pkix_OCSP_basic "basicOCSPResponse" #define SN_id_pkix_OCSP_basic "basicOCSPResponse"
#define LN_id_pkix_OCSP_basic "Basic OCSP Response" #define LN_id_pkix_OCSP_basic "Basic OCSP Response"

15
crypto/objects/objects.pl
View File

@ -203,11 +203,22 @@ sub process_oid
@a = split(/\s+/,$myoid); @a = split(/\s+/,$myoid);
$pref_oid = ""; $pref_oid = "";
$pref_sep = "";
if (!($a[0] =~ /^[0-9]+$/)) if (!($a[0] =~ /^[0-9]+$/))
{ {
$a[0] =~ s/-/_/g; $a[0] =~ s/-/_/g;
$pref_oid = "OBJ_" . $a[0] . ','; $pref_oid = "OBJ_" . $a[0];
$pref_sep = ",";
shift @a; 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);
} }