diff options
| author | Yves Orton <demerphq@gmail.com> | 2006-04-27 23:30:00 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2006-04-28 15:29:30 +0000 |
| commit | 7bd379e81ea13d83ac434499c69ddde30e5c4259 (patch) | |
| tree | 3757e557c4cfa29634e1679af997c866f4fa10a4 /win32/perlhost.h | |
| parent | ff235dd6d6f5e19e11c9202d4a82fb8e5fbadadd (diff) | |
| download | perl-7bd379e81ea13d83ac434499c69ddde30e5c4259.tar.gz | |
Merge WinCE and Win32 directories -- Initial patch
Message-ID: <9b18b3110604271430k4de84685jec6535ded195ed94@mail.gmail.com>
p4raw-id: //depot/perl@28003
Diffstat (limited to 'win32/perlhost.h')
| -rw-r--r-- | win32/perlhost.h | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/win32/perlhost.h b/win32/perlhost.h index ff90ca90da..fe026dde1f 100644 --- a/win32/perlhost.h +++ b/win32/perlhost.h @@ -7,12 +7,16 @@ * License or the Artistic License, as specified in the README file. */ +#ifndef UNDER_CE #define CHECK_HOST_INTERP +#endif #ifndef ___PerlHost_H___ #define ___PerlHost_H___ +#ifndef UNDER_CE #include <signal.h> +#endif #include "iperlsys.h" #include "vmem.h" #include "vdir.h" @@ -823,6 +827,7 @@ PerlStdIOGetOSfhandle(struct IPerlStdIO* piPerl, int filenum) FILE* PerlStdIOFdupopen(struct IPerlStdIO* piPerl, FILE* pf) { +#ifndef UNDER_CE FILE* pfdup; fpos_t pos; char mode[3]; @@ -870,6 +875,9 @@ PerlStdIOFdupopen(struct IPerlStdIO* piPerl, FILE* pf) fsetpos(pfdup, &pos); } return pfdup; +#else + return 0; +#endif } struct IPerlStdIO perlStdIO = @@ -2132,6 +2140,10 @@ lookup(const void *arg1, const void *arg2) LPSTR* CPerlHost::Lookup(LPCSTR lpStr) { +#ifdef UNDER_CE + if (!m_lppEnvList || !m_dwEnvCount) + return NULL; +#endif if (!lpStr) return NULL; return (LPSTR*)bsearch(&lpStr, m_lppEnvList, m_dwEnvCount, sizeof(LPSTR), lookup); |