Fix OID encoding for one component.

OIDs with one component don't have an encoding.

PR#2556 (Bug#1)
This commit is contained in:
Dr. Stephen Henson 2014-06-27 03:17:15 +01:00
parent d2aea03829
commit 95791bf941

View file

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