Do not test PerlIO if PerlIO not used.

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

diff --git a/hv.h b/hv.h
index a9fc9fb..58e7d1d 100644 (file)
--- a/hv.h
+++ b/hv.h
@@ -123,7 +123,7 @@ C<SV*>.
 
 
 #define Nullhv Null(HV*)
-#define HvARRAY(hv)    ((HE**)((XPVHV*)  SvANY(hv))->xhv_array)
+#define HvARRAY(hv)    (*(HE***)&((XPVHV*)  SvANY(hv))->xhv_array)
 #define HvFILL(hv)     ((XPVHV*)  SvANY(hv))->xhv_fill
 #define HvMAX(hv)      ((XPVHV*)  SvANY(hv))->xhv_max
 #define HvKEYS(hv)     ((XPVHV*)  SvANY(hv))->xhv_keys