From 0dac06c4eedd128f56f798872a782ff65b439378 Mon Sep 17 00:00:00 2001 From: Peter Prymmer Date: Fri, 4 May 2001 10:29:02 -0700 Subject: [PATCH] fix const poisioning in PerlIO_openn->fdopen->openn Message-ID: p4raw-id: //depot/perl@9993 --- perlio.c | 4 ++-- vms/vmsish.h | 2 +- 2 files changed, 3 insertions(+), 3 deletions(-) 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 *); -- 2.7.4