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 fef58ce79e
commit 38a503fb8a

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;