This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
VMS fix-ups and status
authorCraig A. Berry <craigberry@mac.com>
Wed, 28 Mar 2001 10:55:20 +0000 (04:55 -0600)
committerJarkko Hietaniemi <jhi@iki.fi>
Wed, 28 Mar 2001 17:11:12 +0000 (17:11 +0000)
Message-Id: <5.0.2.1.0.20010327164600.031563e8@exchi01>

p4raw-id: //depot/perl@9414

ext/IO/IO.xs
lib/ExtUtils/MM_VMS.pm
vms/vms.c
vms/vmsish.h

index 4987b3d..3abc94b 100644 (file)
@@ -420,7 +420,7 @@ sockatmark (sock)
    InputStream sock
    PROTOTYPE: $
    PREINIT:
-     int fd,flag,result;
+     int fd,flag=0;
    CODE:
    {
      fd = PerlIO_fileno(sock);
index ef5b541..072bc28 100644 (file)
@@ -1389,7 +1389,7 @@ END
     push @m,
 qq[POD2MAN_EXE = $pod2man_exe\n],
 q[POD2MAN = $(PERL) -we "%m=@ARGV;for (keys %m){" -
--e "system(""MCR $^X $(POD2MAN_EXE) $_ >$m{$_}"");}"
+-e "system(""MCR $^X "-I$(PERL_ARCHLIB)" "-I$(PERL_LIB)" $(POD2MAN_EXE) $_ >$m{$_}"");}"
 ];
     push @m, "\nmanifypods : \$(MAN1PODS) \$(MAN3PODS)\n";
     if (%{$self->{MAN1PODS}} || %{$self->{MAN3PODS}}) {
index f63bbde..7e90656 100644 (file)
--- 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);
index 15cda49..a8551da 100644 (file)
@@ -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 *);