[perl-ldap-checkins] CVS: asn/lib/Convert/ASN1 _decode.pm,1.17,1.18

[Graham B. <gb...@us...>]

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