--- /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 ':') {

Reply via email to