Fix for ITS#1842 (applied blindly)

diff --git a/servers/slapd/back-perl/modify.c b/servers/slapd/back-perl/modify.c
index 2d0fb9817cbe432ecc264b5859abbe138c2ab108..0e2f570eab484947798f08ec0674ba49dfc3897a 100644 (file)
--- 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;