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 /iperlsys.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 'iperlsys.h')
| -rw-r--r-- | iperlsys.h | 20 |
1 files changed, 11 insertions, 9 deletions
diff --git a/iperlsys.h b/iperlsys.h index 7251e8f945..5f0ed0c92a 100644 --- a/iperlsys.h +++ b/iperlsys.h @@ -447,24 +447,26 @@ class IPerlEnv { public: virtual char * Getenv(const char *varname, int &err) = 0; -#ifdef HAS_ENVGETENV - virtual char * ENVGetenv(const char *varname, int &err) = 0; -#endif virtual int Putenv(const char *envstring, int &err) = 0; virtual char * LibPath(char *patchlevel) =0; virtual char * SiteLibPath(char *patchlevel) =0; virtual int Uname(struct utsname *name, int &err) =0; + virtual char * Getenv_len(const char *varname, unsigned long *len, int &err) = 0; +#ifdef HAS_ENVGETENV + virtual char * ENVGetenv(const char *varname, int &err) = 0; + virtual char * ENVGetenv_len(const char *varname, unsigned long *len, int &err) = 0; +#endif }; #define PerlEnv_putenv(str) PL_piENV->Putenv((str), ErrorNo()) #define PerlEnv_getenv(str) PL_piENV->Getenv((str), ErrorNo()) -#define PerlEnv_getenv_sv(str) PL_piENV->getenv_sv((str)) +#define PerlEnv_getenv_len(str,l) PL_piENV->Getenv_len((str), (l), ErrorNo()) #ifdef HAS_ENVGETENV # define PerlEnv_ENVgetenv(str) PL_piENV->ENVGetenv((str), ErrorNo()) -# define PerlEnv_ENVgetenv_sv(str) PL_piENV->ENVgetenv_sv((str)) +# define PerlEnv_ENVgetenv_len(str,l) PL_piENV->ENVGetenv_len((str), (l), ErrorNo()) #else # define PerlEnv_ENVgetenv(str) PerlEnv_getenv((str)) -# define PerlEnv_ENVgetenv_sv(str) PerlEnv_getenv_sv((str)) +# define PerlEnv_ENVgetenv_len(str,l) PerlEnv_getenv_len((str),(l)) #endif #define PerlEnv_uname(name) PL_piENV->Uname((name), ErrorNo()) #ifdef WIN32 @@ -476,13 +478,13 @@ public: #define PerlEnv_putenv(str) putenv((str)) #define PerlEnv_getenv(str) getenv((str)) -#define PerlEnv_getenv_sv(str) getenv_sv((str)) +#define PerlEnv_getenv_len(str,l) getenv_len((str), (l)) #ifdef HAS_ENVGETENV # define PerlEnv_ENVgetenv(str) ENVgetenv((str)) -# define PerlEnv_ENVgetenv_sv(str) ENVgetenv_sv((str)) +# define PerlEnv_ENVgetenv_len(str,l) ENVgetenv_len((str), (l)) #else # define PerlEnv_ENVgetenv(str) PerlEnv_getenv((str)) -# define PerlEnv_ENVgetenv_sv(str) PerlEnv_getenv_sv((str)) +# define PerlEnv_ENVgetenv_len(str,l) PerlEnv_getenv_len((str), (l)) #endif #define PerlEnv_uname(name) uname((name)) |