From: Graham B. <gb...@us...> - 2004-01-01 09:45:57
|
Update of /cvsroot/perl-ldap/ldap/lib/Net/LDAP In directory sc8-pr-cvs1:/tmp/cvs-serv2649/lib/Net/LDAP Modified Files: Schema.pm Log Message: Fix Net::LDAP::Schema to not ignore superior objectclass' attributes in derived objectclasses without attributes Index: Schema.pm =================================================================== RCS file: /cvsroot/perl-ldap/ldap/lib/Net/LDAP/Schema.pm,v retrieving revision 1.16 retrieving revision 1.17 diff -u -d -r1.16 -r1.17 --- Schema.pm 6 May 2003 11:58:16 -0000 1.16 +++ Schema.pm 1 Jan 2004 09:45:51 -0000 1.17 @@ -1,4 +1,4 @@ -# Copyright (c) 1998-2002 Graham Barr <gb...@po...>. All rights reserved. +# Copyright (c) 1998-2004 Graham Barr <gb...@po...>. All rights reserved. # This program is free software; you can redistribute it and/or # modify it under the same terms as Perl itself. @@ -7,7 +7,7 @@ use strict; use vars qw($VERSION); -$VERSION = "0.9901"; +$VERSION = "0.9902"; # # Get schema from the server (or read from LDIF) and parse it into @@ -158,8 +158,9 @@ $done{lc $oc}++ and next; my $elem = $self->objectclass( $oc ) or next; - my $res = $elem->{$must_or_may} or next; + if (my $res = $elem->{$must_or_may}) { @res{ @$res } = (); # Add in, getting uniqueness + } my $sup = $elem->{sup} or next; push @oc, @$sup; } |