vms/vmsish.h: move a function declaration from doio.c
authorAaron Crane <arc@cpan.org>
Fri, 13 Oct 2017 14:20:21 +0000 (16:20 +0200)
committerAaron Crane <arc@cpan.org>
Sat, 21 Oct 2017 15:53:06 +0000 (16:53 +0100)
doio.c
vms/vmsish.h

diff --git a/doio.c b/doio.c
index a12f8dc..04bbe7e 100644 (file)
--- a/doio.c
+++ b/doio.c
@@ -2920,11 +2920,6 @@ 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 5011590..669ed5c 100644 (file)
@@ -663,6 +663,7 @@ 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);