Re: Control::VLV error
Graham Barr <[email protected]>
| Newsgroups | gmane.comp.lang.perl.modules.ldap |
|---|---|
| Message-ID | <[email protected]> |
On Sep 22, 2009, at 1:25 PM, Dieter Kluenter wrote: > Graham Barr <[email protected]> writes: > >> On Sep 22, 2009, at 11:29 AM, Dieter Kluenter wrote: >> >>> Graham Barr <[email protected]> writes: >>> >>>> On Sep 22, 2009, at 4:35 AM, Dieter Kluenter wrote: > > [...] >>> OK, here it is: >>> >>> 0087 28: SEQUENCE { >>> 0089 23: STRING = '2.16.840.1.113730.3.4.9' >>> 00A2 1: BOOLEAN = TRUE >>> 00A5 : } >> >> that is weird. >> >> that should be >> >> 0000 46: SEQUENCE { >> 0002 23: STRING = '2.16.840.1.113730.3.4.9' >> 001B 1: BOOLEAN = TRUE >> 001E 16: STRING >> 0020 : 30 0E 02 01 00 02 01 13 A0 06 02 01 01 02 01 00 >> 0............... >> 0030 : } >> >> which is what I got when I ran this test script >> >> >> >> use Net::LDAP::Control::VLV; >> use Net::LDAP::ASN qw(Control); >> use Convert::ASN1 qw(:debug); >> use Data::Dumper; >> >> $vlv = Net::LDAP::Control::VLV->new( >> before => 0, >> after => 19, >> content => 0, >> offset => 1, >> critical => 'TRUE' >> ); >> >> print Dumper($vlv); >> $vlv->to_asn; >> print Dumper($vlv); # should add 'value' element to object hash >> >> $d = $Control->encode($vlv); >> >> asn_dump($d); >> >> >> Do you have the most up to date perl-ldap installed ? > > Yes, the version is 0.39 > Running your test script, I get the same result as you. Then I am totally at a loss of where it is going wrong. ->to_asn should be called on the control in Net::LDAP::_options, but it seems that it is not. If you can track down why then we can fix it but I cannot reproduce it right now. Graham.