From 38a503fb8adaad331b8a67aaa9eb2fa915113ed0 Mon Sep 17 00:00:00 2001 From: "Dr. Stephen Henson" 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