Fix pointer casts.

To: perl5-porters@perl.org
Subject: [ID 19990907.004] [PATCH perl5.005_61] compiler warnings with
    -Duse64bits
Message-Id: <199909071130.MAA11435@tempest.npl.co.uk>

p4raw-id: //depot/cfgperl@4100

1 files changed, 1 insertions, 1 deletions

diff --git a/doio.c b/doio.c
index 413e342dbc..50870b21fa 100644
--- a/doio.c
+++ b/doio.c
@@ -1696,7 +1696,7 @@ Perl_do_ipcctl(pTHX_ I32 optype, SV **mark, SV **sp)
     else
     {
 	IV i = SvIV(astr);
-	a = (char *)i;		/* ouch */
+	a = (char *)PTR_CAST i;		/* ouch */
     }
     SETERRNO(0,0);
     switch (optype)