Fix OID encoding for one component.

OIDs with one component don't have an encoding.

PR#2556 (Bug#1)
(cherry picked from commit 95791bf94150f2e3dc96fd2462627aaf354e92e4)
This commit is contained in:
Dr. Stephen Henson 2014-06-27 03:17:15 +01:00
parent f4623ab996
commit ff4cfc4c58

View File

@ -115,7 +115,7 @@ for ($i=0; $i<$n; $i++)
$out.="\"$sn\""; $out.="\"$sn\"";
$out.=","."\"$ln\""; $out.=","."\"$ln\"";
$out.=",NID_$nid{$i},"; $out.=",NID_$nid{$i},";
if (defined($obj{$nid{$i}})) if (defined($obj{$nid{$i}}) && $objd{$obj{$nid{$i}}} =~ /,/)
{ {
$v=$objd{$obj{$nid{$i}}}; $v=$objd{$obj{$nid{$i}}};
$v =~ s/L//g; $v =~ s/L//g;