diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1999-05-11 09:34:13 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1999-05-11 09:34:13 +0000 |
| commit | a6c403648ecd5cc72235fdb1e7535523a8ff2ac9 (patch) | |
| tree | ae379cb0349ea1800627a86bc0ddf04fea4403ec /vms/vmsish.h | |
| parent | 312caa8e97f1c7ee342a9895c2f0e749625b4929 (diff) | |
| download | perl-a6c403648ecd5cc72235fdb1e7535523a8ff2ac9.tar.gz | |
various fixes for clean build and test on win32; configpm broken,
needed to open myconfig.SH rather than myconfig; sundry adjustments
to bytecode stuff; tweaks to DYNAMIC_ENV_FETCH code to make it
work under win32; getenv_sv() changed to getenv_len() since SVs
aren't visible in the lower echelons; remove bogus exports from
config.sym; PERL_OBJECT-ness for C++ exception support; null out
IoDIRP in filter_del() or sv_free() will attempt to close it
p4raw-id: //depot/perl@3387
Diffstat (limited to 'vms/vmsish.h')
| -rw-r--r-- | vms/vmsish.h | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/vms/vmsish.h b/vms/vmsish.h index 4b45cf4968..5398bcccb0 100644 --- a/vms/vmsish.h +++ b/vms/vmsish.h @@ -74,7 +74,7 @@ /* getenv used for regular logical names */ # define getenv(v) my_getenv(v,TRUE) #endif -#define getenv_sv(v) my_getenv_sv(v,TRUE) +#define getenv_len(v,l) my_getenv_len(v,l,TRUE) /* DECC introduces this routine in the RTL as of VMS 7.0; for now, * we'll use ours, since it gives us the full VMS exit status. */ @@ -90,7 +90,7 @@ #define vmstrnenv Perl_vmstrnenv #define my_trnlnm Perl_my_trnlnm #define my_getenv Perl_my_getenv -#define my_getenv_sv Perl_my_getenv_sv +#define my_getenv_len Perl_my_getenv_len #define prime_env_iter Perl_prime_env_iter #define vmssetenv Perl_vmssetenv #define my_setenv Perl_my_setenv @@ -413,7 +413,7 @@ struct utimbuf { #define ENV_HV_NAME "%EnV%VmS%" /* Special getenv function for retrieving %ENV elements. */ #define ENVgetenv(v) my_getenv(v,FALSE) -#define ENVgetenv_sv(v) my_getenv_sv(v,FALSE) +#define ENVgetenv_len(v,l) my_getenv_len(v,l,FALSE) /* Thin jacket around cuserid() tomatch Unix' calling sequence */ @@ -581,7 +581,7 @@ typedef char __VMS_PROTOTYPES__; int vmstrnenv _((const char *, char *, unsigned long int, struct dsc$descriptor_s **, unsigned long int)); int my_trnlnm _((const char *, char *, unsigned long int)); char * my_getenv _((const char *, bool)); -SV * my_getenv_sv _((const char *, bool)); +char * my_getenv_len _((const char *, unsigned long *, bool)); int vmssetenv _((char *, char *, struct dsc$descriptor_s **)); char * my_crypt _((const char *, const char *)); Pid_t my_waitpid _((Pid_t, int *, int)); |