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

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

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

Modified Files:
	Schema.pm 
Log Message:
Fix bug when fetching elements with OIDs


Index: Schema.pm
===================================================================
RCS file: /cvsroot/perl-ldap/ldap/lib/Net/LDAP/Schema.pm,v
retrieving revision 1.14
retrieving revision 1.15
diff -u -d -r1.14 -r1.15
--- Schema.pm	23 Apr 2002 10:57:29 -0000	1.14
+++ Schema.pm	28 May 2002 07:57:45 -0000	1.15
@@ -7,7 +7,7 @@
 use strict;
 use vars qw($VERSION);
 
-$VERSION = "0.99";
+$VERSION = "0.9901";
 
 #
 # Get schema from the server (or read from LDIF) and parse it into
@@ -174,11 +174,12 @@
 
 sub _get {
   my $self = shift;
-  my $type = $self->{ pop(@_) };
+  my $type = pop(@_);
+  my $hash = $self->{$type};
   my $oid  = $self->{oid};
 
   my @elem = grep $_, map {
-    my $elem = $type->{lc $_};
+    my $elem = $hash->{lc $_};
 
     ($elem or ($elem = $oid->{$_} and $elem->{type} eq $type))
       ? $elem