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

crypto/objects/obj_mac.h

@@ -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

@@ -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);
 	}