diff options
Diffstat (limited to 'iperlsys.h')
| -rw-r--r-- | iperlsys.h | 19 |
1 files changed, 19 insertions, 0 deletions
diff --git a/iperlsys.h b/iperlsys.h index 03e3c08267..7251e8f945 100644 --- a/iperlsys.h +++ b/iperlsys.h @@ -447,6 +447,9 @@ 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; @@ -455,6 +458,14 @@ public: #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)) +#ifdef HAS_ENVGETENV +# define PerlEnv_ENVgetenv(str) PL_piENV->ENVGetenv((str), ErrorNo()) +# define PerlEnv_ENVgetenv_sv(str) PL_piENV->ENVgetenv_sv((str)) +#else +# define PerlEnv_ENVgetenv(str) PerlEnv_getenv((str)) +# define PerlEnv_ENVgetenv_sv(str) PerlEnv_getenv_sv((str)) +#endif #define PerlEnv_uname(name) PL_piENV->Uname((name), ErrorNo()) #ifdef WIN32 #define PerlEnv_lib_path(str) PL_piENV->LibPath((str)) @@ -465,6 +476,14 @@ public: #define PerlEnv_putenv(str) putenv((str)) #define PerlEnv_getenv(str) getenv((str)) +#define PerlEnv_getenv_sv(str) getenv_sv((str)) +#ifdef HAS_ENVGETENV +# define PerlEnv_ENVgetenv(str) ENVgetenv((str)) +# define PerlEnv_ENVgetenv_sv(str) ENVgetenv_sv((str)) +#else +# define PerlEnv_ENVgetenv(str) PerlEnv_getenv((str)) +# define PerlEnv_ENVgetenv_sv(str) PerlEnv_getenv_sv((str)) +#endif #define PerlEnv_uname(name) uname((name)) #endif /* PERL_OBJECT */ |