1 files changed, 6 insertions, 0 deletions
diff --git a/doio.c b/doio.c
index c1c6f95cfd..bbf3837e1b 100644
--- a/doio.c
+++ b/doio.c
@@ -1131,6 +1131,12 @@ apply(I32 type, register SV **mark, register SV **sp)
 	}
 	break;
 #endif
+/* 
+XXX Should we make lchown() directly available from perl?
+For now, we'll let Configure test for HAS_LCHOWN, but do
+nothing in the core.
+    --AD  5/1998
+*/
 #ifdef HAS_KILL
     case OP_KILL:
 	what = "kill";