From: Nicholas Clark <nick@ccl4.org>
Date: Mon, 3 Nov 2003 07:04:36 +0000 (+0000)
Subject: Stas would prefer not to have MOD_PERL defines in perl.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=3d78eb94aeaaf5a3811e34e1c8c1a6e2f8c3f636;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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
--- 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; \