[perl-ldap-checkins] CVS: asn/lib/Convert/ASN1 Debug.pm,1.7,1.8

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

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;