--- Modules/perl5.cxx.orig	Sat Nov 27 13:03:55 1999
+++ Modules/perl5.cxx	Sat Nov 27 13:04:20 1999
@@ -1387,10 +1387,10 @@
   {
 
   char   *tm;
-  static  have_int_func = 0;
-  static  have_double_func = 0;
-  static  have_char_func = 0;
-  static  have_ref_func = 0;
+  static  int have_int_func = 0;
+  static  int have_double_func = 0;
+  static  int have_char_func = 0;
+  static  int have_ref_func = 0;
 
   if ((tm = typemap_lookup("const","perl5",type,name,value,name))) {
     fprintf(f_init,"%s\n",tm);
