From: Perl 5 Porters <perl5-porters@africa.nicoh.com>
Date: Mon, 19 Aug 1996 00:36:12 +0000 (+0000)
Subject: perl 5.003_03: mg.c
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=e6d9441ccdcf8bd3f0f10054a692c39b28cfbc5e;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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);
 }