From: Peter Prymmer <PPrymmer@factset.com>
Date: Fri, 4 May 2001 17:29:02 +0000 (-0700)
Subject: fix const poisioning in  PerlIO_openn->fdopen->openn
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=0dac06c4eedd128f56f798872a782ff65b439378;p=p5sagit%2Fp5-mst-13.2.git

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