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

diff --git a/perlio.c b/perlio.c
index 3f15c4e..7580f2a 100644 (file)
--- 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;
 }

diff --git a/vms/vmsish.h b/vms/vmsish.h
index 01aa644..2eb8e93 100644 (file)
--- a/vms/vmsish.h
+++ b/vms/vmsish.h
@@ -772,7 +772,7 @@ int my_vfork ();
 bool   Perl_vms_do_exec (pTHX_ char *);
 unsigned long int      Perl_do_aspawn (pTHX_ void *, void **, void **);
 unsigned long int      Perl_do_spawn (pTHX_ char *);
-FILE *  my_fdopen (int, char *);
+FILE *  my_fdopen (int, const char *);
 int     my_fclose (FILE *);
 int    my_fwrite (void *, size_t, size_t, FILE *);
 int    Perl_my_flush (pTHX_ FILE *);