perl 5.003_03: mg.c

Include <unistd.h>

Use Safefree() macro instead of safefree() function with
a (possibly) incorrect cast.  The whole point of the
Safefree() macro is that it does the correct cast for you.

diff --git a/mg.c b/mg.c
index 31c542e..b1d5415 100644 (file)
--- a/mg.c
+++ b/mg.c
@@ -15,11 +15,10 @@
 #include "EXTERN.h"
 #include "perl.h"
 
-/* Omit -- it causes too much grief on mixed systems.
+/* XXX If this causes problems, set i_unistd=undef in the hint file.  */
 #ifdef I_UNISTD
 # include <unistd.h>
 #endif
-*/
 
 /*
  * Use the "DESTRUCTOR" scope cleanup to reinstate magic.
@@ -70,7 +69,7 @@ void* p;
            SvFLAGS(sv) &= ~(SVf_IOK|SVf_NOK|SVf_POK);
     }
 
-    safefree((void *)mgs);
+    Safefree(mgs);
 }