*** empty log message ***

directory/perldap/ChangeLog

@@ -1,5 +1,7 @@
 1998-08-13  Leif Hedstrom  <leif@netscape.com>
 
+	* Conn.pm (update): Fixed narly bug with ldap_modify()...
+
 	* All: Cleaned up some hash indexes, to make sure they are
 	properly quoted, and there are no conflicts to resolve.
 	

directory/perldap/Entry.pm

@@ -1,5 +1,5 @@
 #############################################################################
-# $Id: Entry.pm,v 1.7 1998-08-13 11:02:28 leif Exp $
+# $Id: Entry.pm,v 1.8 1998-08-13 12:03:01 leif Exp $
 #
 # The contents of this file are subject to the Mozilla Public License
 # Version 1.0 (the "License"); you may not use this file except in
@@ -63,13 +63,16 @@ sub STORE
 
   return if (($val eq "") || ($attr eq ""));
 
-  @{$self->{"_${attr}_save_"}} = @{$self->{$attr}}
+  if (defined($self->{$attr}))
-    unless $self->{"_${attr}_save_"};
+    {
+      @{$self->{"_${attr}_save_"}} = @{$self->{$attr}}
+        unless $self->{"_${attr}_save_"};
+    }
   $self->{$attr} = $val;
   $self->{"_${attr}_modified_"} = 1;
 
   # Potentially add the attribute to the OC order list.
-  if (($attr ne "dn") && !grep(/^\Q$attr\E$/i, @{$self->{"_oc_order_"}}))
+  if (($attr ne "dn") && !grep(/^$attr$/i, @{$self->{"_oc_order_"}}))
     {
       push(@{$self->{"_oc_order_"}}, $attr);
     }
@@ -217,7 +220,7 @@ sub addValue
         }
     }
 
-  if (defined(@{$self->{$attr}}))
+  if (defined($self->{$attr}))
     {
       @{$self->{"_${attr}_save_"}} = @{$self->{$attr}}
         unless $self->{"_${attr}_save_"};
@@ -227,7 +230,7 @@ sub addValue
   push(@{$self->{$attr}}, $val);
 
   # Potentially add the attribute to the OC order list.
-  if (($attr ne "dn") && !grep(/^\Q$attr\E$/i, @{$self->{"_oc_order_"}}))
+  if (($attr ne "dn") && !grep(/^$attr$/i, @{$self->{"_oc_order_"}}))
     {
       push(@{$self->{"_oc_order_"}}, $attr);
     }