Re: anyone good at casting spells?

Message-Id: <200106180121.VAA10195@Orb.Nashua.NH.US>

p4raw-id: //depot/perl@10674

diff --git a/ext/POSIX/POSIX.xs b/ext/POSIX/POSIX.xs
index c2e9852..49ea57e 100644 (file)
--- a/ext/POSIX/POSIX.xs
+++ b/ext/POSIX/POSIX.xs
@@ -4,10 +4,12 @@
 
 #ifdef NETWARE
        #define _POSIX_
-       //Ideally this should be somewhere down in the includes
-       //but putting it in other places is giving compiler errors.
-       //Also here I am unable to check for HAS_UNAME since it wouldn't have yet
-       //come into the file at this stage - sgp 18th Oct 2000
+       /*
+        * Ideally this should be somewhere down in the includes
+        * but putting it in other places is giving compiler errors.
+        * Also here I am unable to check for HAS_UNAME since it wouldn't have
+        * yet come into the file at this stage - sgp 18th Oct 2000
+        */
        #include <sys/utsname.h>
 #endif /* NETWARE */
 

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