diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1999-03-24 01:08:33 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1999-03-24 01:08:33 +0000 |
| commit | b2af26b13be5ac143d7c7e58ef2458b8b3103485 (patch) | |
| tree | 708be0a38074ec2b410629956a8f04ed5b58c2a9 /iperlsys.h | |
| parent | 8fe0a5c4e04be608dcf92965347231ca4e6d5db7 (diff) | |
| download | perl-b2af26b13be5ac143d7c7e58ef2458b8b3103485.tar.gz | |
support POSIX::uname() via win32_uname()
p4raw-id: //depot/perl@3134
Diffstat (limited to 'iperlsys.h')
| -rw-r--r-- | iperlsys.h | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/iperlsys.h b/iperlsys.h index 67ef90aec1..03e3c08267 100644 --- a/iperlsys.h +++ b/iperlsys.h @@ -450,10 +450,12 @@ public: 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; }; #define PerlEnv_putenv(str) PL_piENV->Putenv((str), ErrorNo()) #define PerlEnv_getenv(str) PL_piENV->Getenv((str), ErrorNo()) +#define PerlEnv_uname(name) PL_piENV->Uname((name), ErrorNo()) #ifdef WIN32 #define PerlEnv_lib_path(str) PL_piENV->LibPath((str)) #define PerlEnv_sitelib_path(str) PL_piENV->SiteLibPath((str)) @@ -463,6 +465,7 @@ public: #define PerlEnv_putenv(str) putenv((str)) #define PerlEnv_getenv(str) getenv((str)) +#define PerlEnv_uname(name) uname((name)) #endif /* PERL_OBJECT */ |