fix const poisioning in PerlIO_openn->fdopen->openn

Message-ID: <Pine.OSF.4.10.10105041727420.67333-100000@aspara.forte.com>

p4raw-id: //depot/perl@9993

1 files changed, 2 insertions, 2 deletions

diff --git a/perlio.c b/perlio.c
index 3f15c4eb17..7580f2a013 100644
--- a/perlio.c
+++ b/perlio.c
@@ -120,7 +120,7 @@ PerlIO_openn(pTHX_ const char *layers, const char *mode, int fd, int imode, int
       {
        fd = PerlLIO_open3(name,imode,perm);
        if (fd >= 0)
-        return PerlIO_fdopen(fd,mode+1);
+        return PerlIO_fdopen(fd,(char *)mode+1);
       }
      else if (old)
       {
@@ -134,7 +134,7 @@ PerlIO_openn(pTHX_ const char *layers, const char *mode, int fd, int imode, int
   }
  else
   {
-   return PerlIO_fdopen(fd,mode);
+   return PerlIO_fdopen(fd,(char *)mode);
   }
  return NULL;
 }