[PATCH perl@9359] VMS fix-ups and status

The patch at the end of this message includes the following changes:

ext/IO/IO.xs -- my compiler complained about an uninitialized value, so I 
initialized it, and while I was there I deleted a variable that was declared 
but never used.

vms/vms.c, vms/vmsish.h -- we now comply with perlio.c's requirement that 
the mode argument to fdopen() be const char* even when -Uuseperlio is in 
effect.

lib/ExtUtils/MM_VMS.pm -- for Digest::MD5 and MIME::Base64, pod2man.pl was 
failing to find Config.pm; I've beefed up its ability to do so.  There is 
another problem with loading libraries while building these extensions that 
I have not yet resolved: 

        Making Digest/MD5 (dynamic)
Can't locate Getopt/Long.pm in @INC (@INC contains: perl_root:[lib.VMS_AXP.5_7_0] perl_root:[lib] perl_root:[lib.site_perl.VMS_AXP] 
perl_root:[lib.site_perl] /perl_root/lib/site_perl .) at [---.pod]pod2man.com line 16.
BEGIN failed--compilation aborted at [---.pod]pod2man.com line 16.
%RMS-F-SYN, file specification syntax error


After this all tests but one pass with Compaq C V6.2-003 on OpenVMS Alpha 
V7.2-1.  The failed test is sigaction.t test #13, which has failed in all 
recent bleadperls.

Other remaining issues:

vms/test.com still lags behind t/test

-Duseperlio not quite buildable yet (but the great Sugalski is purportedly 
working on it :)

And here's the patch:

--- ext/IO/IO.xs;-0     Sun Mar 25 17:28:31 2001
+++ ext/IO/IO.xs        Tue Mar 27 13:39:03 2001
@@ -420,7 +420,7 @@
    InputStream sock
    PROTOTYPE: $
    PREINIT:
-     int fd,flag,result;
+     int fd,flag=0;
    CODE:
    {
      fd = PerlIO_fileno(sock);
--- vms/vms.c;-0        Tue Mar 20 18:43:16 2001
+++ vms/vms.c   Tue Mar 27 13:12:39 2001
@@ -4771,10 +4771,10 @@
  * 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);
--- vms/vmsish.h;-0     Mon Mar  5 20:07:29 2001
+++ vms/vmsish.h        Tue Mar 27 13:12:35 2001
@@ -736,7 +736,7 @@
 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 *);
--- lib/ExtUtils/MM_VMS.pm;-0   Thu Mar 15 20:54:49 2001
+++ lib/ExtUtils/MM_VMS.pm      Wed Mar 28 10:02:42 2001
@@ -1389,7 +1389,7 @@
     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}}) {
[end of patch]

• [PATCH perl@9359] VMS fix-ups and status by Craig A. Berry
• Re: [PATCH perl@9359] VMS fix-ups and status by Jarkko Hietaniemi