Bommels05/Mozilla
Bommels05/Mozilla
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Resolves: 378218

Browse Source 
Summary: Re-implemented a bugfix in the FIRSTKEY subroutine.  This fix was re-implmented to allow us to relicense PerLDAP.  The re-implementation work was done by nhosoi%redhat.com.


git-svn-id: svn://10.0.0.236/trunk@228007 18797224-902f-48f8-a5cc-f745e15eee43
This commit is contained in:
nkinder%redhat.com 2007-06-13 22:48:07 +00:00
parent 84fb4a6c9d
commit 2555608e24
1 changed files with 16 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
mozilla/directory/perldap/Entry.pm
View File

@ -1,5 +1,5 @@
#############################################################################
# $Id: Entry.pm,v 1.13 2000-10-05 19:47:28 leif%netscape.com Exp $
# $Id: Entry.pm,v 1.14 2007-06-13 22:48:07 nkinder%redhat.com Exp $
#
# The contents of this file are subject to the Mozilla Public License
# Version 1.1 (the "License"); you may not use this file except in
@ -188,10 +188,22 @@ sub exists
#
sub FIRSTKEY
{
my ($self) = ($_[$[]);
my ($self, $idx) = ($_[$[], 0);
my (@attrs, $key);
$self->{"_oc_keyidx_"} = 0;
return $self->NEXTKEY();
return unless defined($self->{"_oc_order_"});
@attrs = @{$self->{"_oc_order_"}};
while ($idx < $self->{"_oc_numattr_"})
{
$key = $attrs[$idx++];
next if ($key =~ /^_.+_$/);
next if defined($self->{"_${key}_deleted_"});
$self->{"_oc_keyidx_"} = $idx;
return $key;
}
$self->{"_oc_keyidx_"} = $idx;
return;
}