Not OK: perl 5.00555 on OPENSTEP-Mach-thread 4_2 (UNINSTALLED)

[p5sagit/p5-mst-13.2.git] / hv.h

diff --git a/hv.h b/hv.h
index 1f8d9ce..1763a88 100644 (file)
--- a/hv.h
+++ b/hv.h
@@ -40,7 +40,7 @@ struct xpvhv {
 
 #define PERL_HASH(hash,str,len) \
      STMT_START        { \
-       register char *s_PeRlHaSh = str; \
+       register const char *s_PeRlHaSh = str; \
        register I32 i_PeRlHaSh = len; \
        register U32 hash_PeRlHaSh = 0; \
        while (i_PeRlHaSh--) \