diff -r b1557c114193 -r 553a33f54fe2 src/perl.c
--- a/src/perl.c	Wed Oct 11 03:56:46 2000 +0000
+++ b/src/perl.c	Wed Oct 11 04:30:26 2000 +0000
@@ -426,8 +426,10 @@
 		serv_set_idle(atoi(SvPV(ST(1), junk)));
 		*/
 	} else if (!strncasecmp(command, "warn", 4)) {
+		/* yet another perl FIXME
 		char *name = SvPV(ST(1), junk);
 		serv_warn(name, 0);
+		*/
 	}
 
 	XSRETURN(0);