[perl-ldap-checkins] CVS: ldap/lib/Net/LDAP Schema.pm,1.16,1.17

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

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