From cff6b28943a3649717f8dd3ef6264891f8ef282d Mon Sep 17 00:00:00 2001
From: leif <leif>
Date: Thu, 13 Aug 1998 12:05:09 +0000
Subject: [PATCH] *** empty log message ***

---
 directory/perldap/ChangeLog |  2 ++
 directory/perldap/Entry.pm  | 15 +++++++++------
 2 files changed, 11 insertions(+), 6 deletions(-)

diff --git a/directory/perldap/ChangeLog b/directory/perldap/ChangeLog
index ca98cf6dde6..a5b1b8ed5a7 100644
--- a/directory/perldap/ChangeLog
+++ b/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.
 	
diff --git a/directory/perldap/Entry.pm b/directory/perldap/Entry.pm
index 368416041f9..223a20867df 100644
--- a/directory/perldap/Entry.pm
+++ b/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}}
-    unless $self->{"_${attr}_save_"};
+  if (defined($self->{$attr}))
+    {
+      @{$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);
     }