VMS fix-ups and status

Message-Id: <5.0.2.1.0.20010327164600.031563e8@exchi01>

p4raw-id: //depot/perl@9414

1 files changed, 3 insertions, 3 deletions

diff --git a/vms/vms.c b/vms/vms.c
index f63bbde361..7e906564c5 100644
--- a/vms/vms.c
+++ b/vms/vms.c
@@ -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);