add README.Y2K (from Dominic Dunlop <domo@vo.lu>)

[perl5.git] / doio.c

diff --git a/doio.c b/doio.c
index 50870b2..0b1cdd1 100644 (file)
--- 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 *)PTR_CAST i;         /* ouch */
+       a = INT2PTR(char *,i);          /* ouch */
     }
     SETERRNO(0,0);
     switch (optype)