re-fix old bug, re-introduced on re-merge of Simon's code:

[gssapi-openssh.git] / openssh / makegssname.pl

diff --git a/openssh/makegssname.pl b/openssh/makegssname.pl
index b91f30b22f6b3e44a9e5cf225f95cb6d322c2813..1350cddb1d5fc847c4606b71236f26fa89df94c0 100644 (file)
--- a/openssh/makegssname.pl
+++ b/openssh/makegssname.pl
@@ -3,12 +3,16 @@
 use Convert::ASN1 qw(:tag);
 use Digest::MD5 qw(md5);
 use MIME::Base64;
+use Data::Dumper;
  
 $oid=shift;
-$encoded=encode_object_id($oid);
+my $asn=Convert::ASN1->new;
+$asn->prepare("oid OBJECT IDENTIFIER");
+$encoded=$asn->encode(oid => $oid);
+Convert::ASN1::asn_dump($encoded);
+print Dumper($asn->decode($encoded));
 
 @entries=unpack("C*",$encoded);
-shift @entries; # Get rid of the NULL
 
 print "DER representation: ";
 foreach $entry (@entries) {