diff options
| author | Craig A. Berry <craigberry@mac.com> | 2001-03-28 04:55:20 -0600 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-03-28 17:11:12 +0000 |
| commit | 275feba9fbd11230522bfce6c95502094ff651f6 (patch) | |
| tree | 42f3e1ae01463356ba7d81579210d3aacf11f7b4 /vms | |
| parent | 3d293bb6615e67800e5f314b6dbfa313554bfd58 (diff) | |
| download | perl-275feba9fbd11230522bfce6c95502094ff651f6.tar.gz | |
VMS fix-ups and status
Message-Id: <5.0.2.1.0.20010327164600.031563e8@exchi01>
p4raw-id: //depot/perl@9414
Diffstat (limited to 'vms')
| -rw-r--r-- | vms/vms.c | 6 | ||||
| -rw-r--r-- | vms/vmsish.h | 2 |
2 files changed, 4 insertions, 4 deletions
@@ -4771,10 +4771,10 @@ static unsigned int *sockflags, sockflagsize; * We don't shim the other file open routines since a socket isn't * likely to be opened by a name. */ -/*{{{ FILE *my_fdopen(int fd, char *mode)*/ -FILE *my_fdopen(int fd, char *mode) +/*{{{ FILE *my_fdopen(int fd, const char *mode)*/ +FILE *my_fdopen(int fd, const char *mode) { - FILE *fp = fdopen(fd,mode); + FILE *fp = fdopen(fd, (char *) mode); if (fp) { unsigned int fdoff = fd / sizeof(unsigned int); diff --git a/vms/vmsish.h b/vms/vmsish.h index 15cda49e3c..a8551daf98 100644 --- a/vms/vmsish.h +++ b/vms/vmsish.h @@ -736,7 +736,7 @@ bool vms_do_aexec (SV *, SV **, SV **); bool vms_do_exec (char *); unsigned long int do_aspawn (void *, void **, void **); unsigned long int do_spawn (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 my_flush (FILE *); |