Update of /cvsroot/perl-ldap/asn/lib/Convert/ASN1
In directory sc8-pr-cvs1:/tmp/cvs-serv23161/lib/Convert/ASN1
Modified Files:
Debug.pm
Log Message:
Fix debug output for OIDs
Index: Debug.pm
===================================================================
RCS file: /cvsroot/perl-ldap/asn/lib/Convert/ASN1/Debug.pm,v
retrieving revision 1.7
retrieving revision 1.8
diff -u -d -r1.7 -r1.8
--- Debug.pm 22 Jan 2002 11:24:28 -0000 1.7
+++ Debug.pm 6 May 2003 14:17:43 -0000 1.8
@@ -126,7 +126,7 @@
};
/^(?:(OBJECT ID)|(RELATIVE-OID))/ && do {
- my @op; $op[opTYPE] = $1 ? opOBJID : opROID;
+ my @op; $op[cTYPE] = $1 ? opOBJID : opROID;
Convert::ASN1::_dec_object_id({},\@op,{},$tmp,$_[0],$pos,$len);
printf " = %s\n",$tmp;
last;
|
