From: Graham B. <gb...@us...> - 2001-11-10 06:35:15
|
Update of /cvsroot/perl-ldap/ldap/lib/Net/LDAP In directory usw-pr-cvs1:/tmp/cvs-serv31289/lib/Net/LDAP Modified Files: Entry.pm Log Message: Fix case-sensitively in get_value with alloptions=>1 Index: Entry.pm =================================================================== RCS file: /cvsroot/perl-ldap/ldap/lib/Net/LDAP/Entry.pm,v retrieving revision 1.8 retrieving revision 1.9 diff -u -d -r1.8 -r1.9 --- Entry.pm 2001/10/05 14:36:00 1.8 +++ Entry.pm 2001/11/10 06:35:12 1.9 @@ -9,7 +9,7 @@ use Net::LDAP::Constant qw(LDAP_LOCAL_ERROR); use vars qw($VERSION); -$VERSION = "0.15"; +$VERSION = "0.16"; sub new { my $self = shift; @@ -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; } |