From 38a503fb8adaad331b8a67aaa9eb2fa915113ed0 Mon Sep 17 00:00:00 2001
From: "Dr. Stephen Henson" <steve@openssl.org>
Date: Fri, 27 Jun 2014 03:17:15 +0100
Subject: [PATCH] Fix OID encoding for one component.

OIDs with one component don't have an encoding.

PR#2556 (Bug#1)
---
 crypto/objects/obj_dat.pl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/crypto/objects/obj_dat.pl b/crypto/objects/obj_dat.pl
index c67f71c327..86bcefb97a 100644
--- a/crypto/objects/obj_dat.pl
+++ b/crypto/objects/obj_dat.pl
@@ -115,7 +115,7 @@ for ($i=0; $i<$n; $i++)
 		$out.="\"$sn\"";
 		$out.=","."\"$ln\"";
 		$out.=",NID_$nid{$i},";
-		if (defined($obj{$nid{$i}}))
+		if (defined($obj{$nid{$i}}) && $objd{$obj{$nid{$i}}} =~ /,/)
 			{
 			$v=$objd{$obj{$nid{$i}}};
 			$v =~ s/L//g;
-- 
2.25.1