Graham Barr <gb...@pobox.com> writes:
> On Sep 22, 2009, at 11:29 AM, Dieter Kluenter wrote:
>
>> Graham Barr <gb...@pobox.com> 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.
-Dieter
--
Dieter Klünter | Systemberatung
http://dkluenter.de
GPG Key ID:8EF7B6C6
53°37'09,95"N
10°08'02,42"E
