diff options
| author | Charles Bailey <bailey@newman.upenn.edu> | 1999-03-26 20:16:51 -0400 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1999-05-05 17:17:34 +0000 |
| commit | f675dbe55e4c9b649da40044a07fead21738b070 (patch) | |
| tree | a14c20a68a86c8e771eaed062b2d300af8a1101b /iperlsys.h | |
| parent | 5311ebfa4a0d242cabb33e39a939e0a9c15a8d29 (diff) | |
| download | perl-f675dbe55e4c9b649da40044a07fead21738b070.tar.gz | |
applied non-conflicting parts of suggested patch
Message-id: <01J9AZY8I2PW001O2S@mail.newman.upenn.edu>
Subject: [Patch 5.005_56] Revised VMS patch
p4raw-id: //depot/perl@3306
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 */ |