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