diff options
| author | Perl 5 Porters <perl5-porters@africa.nicoh.com> | 1996-09-07 03:16:19 +0000 |
|---|---|---|
| committer | Andy Dougherty <doughera@lafcol.lafayette.edu> | 1996-09-07 03:16:19 +0000 |
| commit | 94c456c4e40124cc461aec37335ca9c4f550ff6b (patch) | |
| tree | 013a23900a74dcbc2d0616c6911763dfed429725 /vms | |
| parent | a17cb150d9402fae73682fb5b1eaab2f66474f69 (diff) | |
| download | perl-94c456c4e40124cc461aec37335ca9c4f550ff6b.tar.gz | |
VMS 5.003_05 Update.
Diffstat (limited to 'vms')
| -rw-r--r-- | vms/vmsish.h | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/vms/vmsish.h b/vms/vmsish.h index 36bfaff580..a362374e1c 100644 --- a/vms/vmsish.h +++ b/vms/vmsish.h @@ -56,6 +56,8 @@ #ifdef EMBED # define my_trnlnm Perl_my_trnlnm # define my_getenv Perl_my_getenv +# define prime_env_iter Perl_prime_env_iter +# define my_setenv Perl_my_setenv # define my_crypt Perl_my_crypt # define waitpid Perl_waitpid # define my_gconvert Perl_my_gconvert @@ -397,6 +399,10 @@ typedef unsigned myino_t; * __VMS_PROTOTYPES__ and __VMS_SEPYTOTORP__ lines, and must be in the form * <data type><TAB>name<WHITESPACE>_((<prototype args>)); */ + +void prime_env_iter _((void)); +void getredirection _((int *, char ***)); +void init_os_extras _(()); /* prototype section start marker; `typedef' passes through cpp */ typedef char __VMS_PROTOTYPES__; int my_trnlnm _((char *, char *, unsigned long int)); @@ -426,7 +432,6 @@ long telldir _((DIR *)); void seekdir _((DIR *, long)); void closedir _((DIR *)); void vmsreaddirversions _((DIR *, int)); -void getredirection _((int *, char ***)); struct tm *my_gmtime _((const time_t *)); I32 cando_by_name _((I32, I32, char *)); int flex_fstat _((int, struct stat *)); @@ -445,7 +450,6 @@ struct passwd * my_getpwent _(()); void my_endpwent _(()); char * my_getlogin _(()); int rmscopy _((char *, char *, int)); -void init_os_extras _(()); typedef char __VMS_SEPYTOTORP__; /* prototype section end marker; `typedef' passes through cpp */ |