Commit 27d72600 authored by Richard Levitte's avatar Richard Levitte
Browse files

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

parent a338e21b

crypto/objects/obj_mac.h

+1 −1
Original line number Diff line number Diff line
@@ -1300,7 +1300,7 @@ 
#define NID_ad_dvcs		364

#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 LN_id_pkix_OCSP_basic		"Basic OCSP Response"

crypto/objects/objects.pl

+13 −2
Original line number Diff line number Diff line
@@ -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);

	}