diff --git a/servers/slapd/back-perl/modify.c b/servers/slapd/back-perl/modify.c
index 8d2b39d100..1da13c00f2 100644
--- a/servers/slapd/back-perl/modify.c
+++ b/servers/slapd/back-perl/modify.c
@@ -64,7 +64,7 @@ perl_back_modify(
 				XPUSHs(sv_2mortal(newSVpv( mods->sm_values[i].bv_val, 0 )));
 			}
 
-			// Fix delete attrib without value.
+			/* Fix delete attrib without value. */
 			if ( i == 0) {
 				XPUSHs(sv_newmortal());
 			}