Update of /cvsroot/perl-ldap/asn/lib/Convert/ASN1
In directory sc8-pr-cvs1:/tmp/cvs-serv8372/lib/Convert/ASN1
Modified Files:
_decode.pm
Log Message:
Fix OID decoding
Index: _decode.pm
===================================================================
RCS file: /cvsroot/perl-ldap/asn/lib/Convert/ASN1/_decode.pm,v
retrieving revision 1.17
retrieving revision 1.18
diff -u -d -r1.17 -r1.18
--- _decode.pm 6 May 2003 21:29:07 -0000 1.17
+++ _decode.pm 7 May 2003 09:26:36 -0000 1.18
@@ -294,7 +294,7 @@
my @data = unpack("w*",substr($_[4],$_[5],$_[6]));
splice(@data,0,1,int($data[0]/40),$data[0] % 40)
- if $_[1]->[cTYPE] == opOBJID and $data[0];
+ if $_[1]->[cTYPE] == opOBJID and @data > 1;
$_[3] = join(".", @data);
1;
}
|
