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

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

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

Modified Files:
	DSML.pm 
Log Message:
Need to end the dsml:attribute-type element


Index: DSML.pm
===================================================================
RCS file: /cvsroot/perl-ldap/ldap/lib/Net/LDAP/DSML.pm,v
retrieving revision 1.15
retrieving revision 1.16
diff -u -d -r1.15 -r1.16
--- DSML.pm	18 Jul 2002 18:19:43 -0000	1.15
+++ DSML.pm	18 Jul 2002 20:04:07 -0000	1.16
@@ -516,6 +516,8 @@
       $handler->characters({Data => $syn});
       $handler->end_element(\%data);
     }
+    @data{qw(Name LocalName)} = qw(dsml:attribute-type attribute-type);
+    $handler->end_element(\%data);
   }
 
   foreach my $oc ($schema->all_objectclasses) {