Fix OID encoding for one component.

OIDs with one component don't have an encoding.

PR#2556 (Bug#1)

diff --git a/crypto/objects/obj_dat.pl b/crypto/objects/obj_dat.pl
index c67f71c3277bd96f3674749ed839a16e6437255a..86bcefb97af1394f2ce172041168a6f083e442d1 100644 (file)
--- 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;