diff --git a/src/modules/Perl/perlmod.c b/src/modules/Perl/perlmod.c
index f7d082d1d04058fc7c8b9f165404c1d7d2bc5608..b4043b427229f92b004f43cb6c78e1c9f8f6cf4e 100644
--- a/src/modules/Perl/perlmod.c
+++ b/src/modules/Perl/perlmod.c
@@ -1,4 +1,4 @@
-/* $Id: perlmod.c,v 1.16 2000/05/16 12:38:54 leif Exp $ */
+/* $Id: perlmod.c,v 1.17 2000/07/07 02:44:07 hubbe Exp $ */
 
 #include "builtin_functions.h"
 #include "global.h"
@@ -72,6 +72,8 @@ struct perlmod_storage
 
 /* since both Perl and Pike likes to use "sp" as a stack pointer,
  * let's define some Pike macros as functions...
+ *
+ * Hubbe: Not true anymore, we should really define NO_PIKE_SHORTHAND
  */
 static void _push_int(INT32 i) { push_int(i);}
 static void _push_float(float f) { push_float(f);}