Stas would prefer not to have MOD_PERL defines in perl.

p4raw-id: //depot/perl@21639

diff --git a/hv.c b/hv.c
index 09476f0..53bfa1f 100644 (file)
--- a/hv.c
+++ b/hv.c
@@ -18,6 +18,7 @@
 
 #include "EXTERN.h"
 #define PERL_IN_HV_C
+#define PERL_HASH_INTERNAL_ACCESS
 #include "perl.h"
 
 #define HV_MAX_LENGTH_BEFORE_SPLIT 14

diff --git a/hv.h b/hv.h
index 0fcda5e..81044c9 100644 (file)
--- a/hv.h
+++ b/hv.h
@@ -89,7 +89,8 @@ struct xpvhv {
        (hash) = (hash_PeRlHaSh + (hash_PeRlHaSh << 15)); \
     } STMT_END
 
-#if defined (PERL_IN_HV_C) || defined (MOD_PERL)
+/* Only hv.c and mod_perl should be doing this.  */
+#ifdef PERL_HASH_INTERNAL_ACCESS
 #define PERL_HASH_INTERNAL(hash,str,len) \
      STMT_START        { \
        register const char *s_PeRlHaSh_tmp = str; \