alloptions

[Norbert K. <nor...@da...>]

Hi Graham,

--On 30 April 2002 15:46 +0100 Graham Barr <gb...@po...> wrote:

>   http://monty.mutatus.co.uk/~gbarr/perl-ldap-0.25_02.tar.gz


The alloptions option to get_value has a problem with alignment, e.g.
c: de
co;lang-de: Deutschland
would return both values for c.

--- /usr/src/packages/BUILD/perl-ldap-0.25_02/lib/Net/LDAP/Entry.pm
+++ Entry.pm    Thu May  2 12:05:12 2002
@@ -78,7 +78,8 @@

   if ($opt{alloptions}) {
     my %ret =3D map {
-                $_->{type} =3D~ /^\Q$type\E(.*)/i ? (lc($1), $_->{vals}) : =
()
+                # FIXME an AttributeDescription can have multiple options
+                $_->{type} =3D~ /^\Q$type\E(?:$|;(.*)$)/i ? (lc($1),=20
$_->{vals})
: ()
               } @{$self->{asn}{attributes}};
     return %ret ? \%ret : undef;
   }

--=20
Norbert Klasen, Dipl.-Inform.
DAASI International GmbH                 phone: +49 7071 29 70335
Wilhelmstr. 106                          fax:   +49 7071 29 5114
72074 T=FCbingen                           email: nor...@da...
Germany                                  web:   http://www.daasi.de