[perl-ldap-checkins] CVS: ldap/lib/Net/LDAP Entry.pm,1.9,1.10

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

Update of /cvsroot/perl-ldap/ldap/lib/Net/LDAP
In directory usw-pr-cvs1:/tmp/cvs-serv31656/lib/Net/LDAP

Modified Files:
	Entry.pm 
Log Message:
Fix return hash for get_value($attr, alloptions => 1);


Index: Entry.pm
===================================================================
RCS file: /cvsroot/perl-ldap/ldap/lib/Net/LDAP/Entry.pm,v
retrieving revision 1.9
retrieving revision 1.10
diff -u -d -r1.9 -r1.10
--- Entry.pm	10 Nov 2001 06:35:12 -0000	1.9
+++ Entry.pm	28 May 2002 08:13:32 -0000	1.10
@@ -9,7 +9,7 @@
 use Net::LDAP::Constant qw(LDAP_LOCAL_ERROR);
 use vars qw($VERSION);
 
-$VERSION = "0.16";
+$VERSION = "0.17";
 
 sub new {
   my $self = shift;
@@ -78,7 +78,7 @@
 
   if ($opt{alloptions}) {
     my %ret = map {
-                $_->{type} =~ /^\Q$type\E(.*)/i ? (lc($1), $_->{vals}) : ()
+                $_->{type} =~ /^\Q$type\E((?:;.*)?)$/i ? (lc($1), $_->{vals}) : ()
               } @{$self->{asn}{attributes}};
     return %ret ? \%ret : undef;
   }