From: Kurt Zeilenga <kurt@openldap.org>
Date: Sat, 8 Jun 2002 06:09:30 +0000 (+0000)
Subject: Fix for ITS#1842 (applied blindly)
X-Git-Tag: OPENLDAP_REL_ENG_2_MP~6
X-Git-Url: https://git.sur5r.net/?a=commitdiff_plain;h=aa46324462ec4caa15fdff6b5aa3f0e6477fa7c4;p=openldap

Fix for ITS#1842 (applied blindly)
---

diff --git a/servers/slapd/back-perl/modify.c b/servers/slapd/back-perl/modify.c
index 2d0fb9817c..0e2f570eab 100644
--- a/servers/slapd/back-perl/modify.c
+++ b/servers/slapd/back-perl/modify.c
@@ -69,7 +69,7 @@ perl_back_modify(
 			}
 
 			
-			XPUSHs(sv_2mortal(newSVpv( mods->sm_type.bv_val, 0 )));
+			XPUSHs(sv_2mortal(newSVpv( mods->sm_desc.ad_cname.bv_val, 0 )));
 
 			for ( i = 0;
 				mods->sm_bvalues != NULL && mods->sm_bvalues[i].bv_val != NULL;