Re: match attribute names case-insensitively in get_value with alloptions => 1

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

Ah, good point. I will add support for that.

Thanks,
Graham.

On Sat, Nov 10, 2001 at 06:49:30AM -0800, Kurt D. Zeilenga wrote:
> BTW, you likely need to sort any attribute description options...
> That is, if a client asks for "attr;x-foo;x-bar" it may get
> "attr;x-bar;x-foo" in return.
> 
> Kurt
> 
> At 10:35 PM 2001-11-09, Graham Barr wrote:
> >Thanks
> >
> >Graham
> >
> >On Thu, Nov 08, 2001 at 10:07:14AM +0100, Bob Pepin wrote:
> >> Hi,
> >> The code used in get_value didn't match attribute names correctly.
> >> Here's a simple fix:
> >> 
> >> --- Entry.pm.old        Thu Nov  8 09:58:05 2001
> >> +++ Entry.pm    Thu Nov  8 09:56:54 2001
> >> @@ -78,7 +78,7 @@
> >> 
> >>    if ($opt{alloptions}) {
> >>      my %ret = map {
> >> -                $_->{type} =~ /^\Q$type\E(.*)/ ? (lc($1), $_->{vals}) : ()
> >> +                $_->{type} =~ /^\Q$type\E(.*)/i ? (lc($1), $_->{vals}) : ()
> >>                } @{$self->{asn}{attributes}};
> >>      return %ret ? \%ret : undef;
> >>    }
> >> 
>