'Unknown PerlIO layer "encoding"...' message

[perl5.git] / x2p / hash.h

diff --git a/x2p/hash.h b/x2p/hash.h
index 9f9c6d5..ee5be5b 100644 (file)
--- a/x2p/hash.h
+++ b/x2p/hash.h
@@ -10,7 +10,7 @@
 #define FILLPCT 60             /* don't make greater than 99 */
 
 #ifdef DOINIT
-char const coeff[] = {
+EXTERN_C char const coeff[] = {
                61,59,53,47,43,41,37,31,29,23,17,13,11,7,3,1,
                61,59,53,47,43,41,37,31,29,23,17,13,11,7,3,1,
                61,59,53,47,43,41,37,31,29,23,17,13,11,7,3,1,
@@ -20,7 +20,7 @@ char const coeff[] = {
                61,59,53,47,43,41,37,31,29,23,17,13,11,7,3,1,
                61,59,53,47,43,41,37,31,29,23,17,13,11,7,3,1};
 #else
-extern const char coeff[];
+EXTERN_C const char coeff[];
 #endif
 
 typedef struct hentry HENT;