--- /usr/share/perl5/Net/LDAP/LDIF.pm 2012-01-29 04:26:12.000000000 -0500 +++ LDIF.pm 2013-05-13 11:51:12.881990101 -0400 @@ -233,7 +233,7 @@ $self->_error("LDAP entry is not valid",@ldif); return; } - $lastattr = $modattr = $2; + $lastattr = $modattr = lc $2; $modify = $1; } my @values; @@ -256,7 +256,7 @@ } $line =~ s/^([-;\w]+):([\<\:]?)\s*// and - ($attr, $xattr) = ($1, $2); + ($attr, $xattr) = (lc $1, $2); # base64 encoded attribute: decode it if ($xattr eq ':') { @@ -312,7 +312,7 @@ foreach $line (@ldif) { $line =~ s/^([-;\w]+):([\<\:]?)\s*// && - (($attr, $xattr) = ($1, $2)) or next; + (($attr, $xattr) = (lc $1, $2)) or next; # base64 encoded attribute: decode it if ($xattr eq ':') {