diff options
| author | Peter Prymmer <PPrymmer@factset.com> | 2001-05-04 10:29:02 -0700 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-05-05 02:03:49 +0000 |
| commit | 0dac06c4eedd128f56f798872a782ff65b439378 (patch) | |
| tree | 3ae94f385cc452d4cd1af80e8e2c9d0b14c0d6c5 | |
| parent | 0c35a64037b9819bd90f46802ea0c8b26b5bd422 (diff) | |
| download | perl-0dac06c4eedd128f56f798872a782ff65b439378.tar.gz | |
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
| -rw-r--r-- | perlio.c | 4 | ||||
| -rw-r--r-- | vms/vmsish.h | 2 |
2 files changed, 3 insertions, 3 deletions
@@ -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 01aa644b23..2eb8e93c5f 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 *); |