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;
}
|
