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

Merged in v1.4.1 changes

Browse Source 
git-svn-id: svn://10.0.0.236/branches/devel-branch-1_9@44637 18797224-902f-48f8-a5cc-f745e15eee43
This commit is contained in:
leif%netscape.com
1999-08-26 04:06:40 +00:00
parent f1cb6df81d
commit 7580791cdc
1 changed files with 8 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
mozilla/directory/perldap/LDIF.pm
View File

@@ -1,5 +1,5 @@
#############################################################################
# $Id: LDIF.pm,v 1.7 1999-08-24 22:30:45 leif%netscape.com Exp $
# $Id: LDIF.pm,v 1.7.2.1 1999-08-26 04:06:40 leif%netscape.com Exp $
#
# The contents of this file are subject to the Netscape Public License
# Version 1.0 (the "License"); you may not use this file except in
@@ -161,6 +161,7 @@ sub pack_LDIF
my $str = "";
foreach my $record ((_to_LDIF_records \@_) ? \@_ : @_) {
my @record = @$record;
undef $record; # to avoid creating garbage (workaround Perl).
$str .= "\n" if length $str; # blank line between records
while (@record) {
my ($attr, $val) = splice @record, 0, 2;
@@ -226,6 +227,7 @@ sub put_LDIF
foreach my $record ((_to_LDIF_records \@_) ? \@_ : @_) {
no strict qw(refs); # $fh might be a string
print $fh (pack_LDIF ($options, $record), "\n");
undef $record; # to avoid creating garbage (workaround Perl).
}
}
@@ -384,6 +386,7 @@ sub references
push @refs, $vref;
}
}
undef $record; # to avoid creating garbage (workaround Perl).
}
return @refs;
}
@@ -445,6 +448,7 @@ sub enlist_values
my $v = $$$r; $$r = \$v; # return a reference to a copy of the scalar
}
push @results, \@result;
undef $record; # to avoid creating garbage (workaround Perl).
}
return $single ? @{$results[$[]} : @results;
}
@@ -483,6 +487,7 @@ sub delist_values
my $v = $$$r; $$r = \$v; # return a reference to a copy of the scalar
}
push @results, \@result;
undef $record; # to avoid creating garbage (workaround Perl).
}
return $single ? @{$results[$[]} : @results;
}
@@ -526,6 +531,7 @@ sub sort_attributes
foreach my $record ($single ? \@_ : @_) {
@result = @{(delist_values ($record))[$[]};
@preamble = ();
undef $record; # to avoid creating garbage (workaround Perl).
if (@result > 1 and not defined $result[$[+1]) { # initial comments
push @preamble, @{_shiftAttr \@result};
}
@@ -570,6 +576,7 @@ sub get_DN
my $i = next_attribute ($record);
push @DNs, (((defined $i) and ("dn" eq lc $record->[$[+$i])) ?
$record->[$[+$i+1] : undef);
undef $record; # to avoid creating garbage (workaround Perl).
}
return $single ? $DNs[$[] : @DNs;
}