Revert "vms/vmsish.h: move a function declaration from doio.c"
authorCraig A. Berry <craigberry@mac.com>
Wed, 25 Oct 2017 12:29:35 +0000 (07:29 -0500)
committerCraig A. Berry <craigberry@mac.com>
Wed, 25 Oct 2017 12:29:35 +0000 (07:29 -0500)
This reverts commit d4bd48023fe0ba950fface5aa859b6852aa29fc4.

perlio.h depends on vmsish.h and comes in (via iperlsys.h) about
a thousand lines later in perl.h.  So we can't put a prototype
that uses PerlIO in vmsish.h

Maybe there is a way to get that prototype out of doio.c, but
this isn't it.

doio.c
vms/vmsish.h

diff --git a/doio.c b/doio.c
index e7b78f8..ebcf1b1 100644 (file)
--- a/doio.c
+++ b/doio.c
@@ -2916,6 +2916,11 @@ Perl_start_glob (pTHX_ SV *tmpglob, IO *io)
 #ifdef VMS /* expand the wildcards right here, rather than opening a pipe, */
            /* since spawning off a process is a real performance hit */
 
+PerlIO * 
+Perl_vms_start_glob
+   (pTHX_ SV *tmpglob,
+    IO *io);
+
     fp = Perl_vms_start_glob(aTHX_ tmpglob, io);
 
 #else /* !VMS */
index 127ae58..4181abd 100644 (file)
@@ -657,7 +657,6 @@ void        init_os_extras (void);
 int    Perl_vms_status_to_unix(int vms_status, int child_flag);
 int    Perl_unix_status_to_vms(int unix_status);
 int    Perl_vmstrnenv (const char *, char *, unsigned long int, struct dsc$descriptor_s **, unsigned long int);
-PerlIO *Perl_vms_start_glob(pTHX_ SV *, IO *);
 char * Perl_vms_realpath (pTHX_ const char *, char *, int *);
 char * Perl_my_getenv (pTHX_ const char *, bool);
 int    Perl_my_trnlnm (pTHX_ const char *, char *, unsigned long int);