diff options
author | Norbert Preining <norbert@preining.info> | 2021-04-02 03:20:54 +0000 |
---|---|---|
committer | Norbert Preining <norbert@preining.info> | 2021-04-02 03:20:54 +0000 |
commit | 3f173002d4a4a84e7d1fa5a74755fdd00d08a9c2 (patch) | |
tree | 5ed380344702de1f9ab53b68b6c3bcd6b8458087 /systems/texlive/tlnet/tlpkg/tlperl/lib/CORE/perlhost.h | |
parent | f78ba658b3ecd56053fe0837a4404d0c6c16a707 (diff) |
CTAN sync 202104020320
Diffstat (limited to 'systems/texlive/tlnet/tlpkg/tlperl/lib/CORE/perlhost.h')
-rw-r--r-- | systems/texlive/tlnet/tlpkg/tlperl/lib/CORE/perlhost.h | 13 |
1 files changed, 1 insertions, 12 deletions
diff --git a/systems/texlive/tlnet/tlpkg/tlperl/lib/CORE/perlhost.h b/systems/texlive/tlnet/tlpkg/tlperl/lib/CORE/perlhost.h index 6dd269efa7..f5ffca04e4 100644 --- a/systems/texlive/tlnet/tlpkg/tlperl/lib/CORE/perlhost.h +++ b/systems/texlive/tlnet/tlpkg/tlperl/lib/CORE/perlhost.h @@ -7,16 +7,13 @@ * 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 <wchar.h> #include "iperlsys.h" #include "vmem.h" #include "vdir.h" @@ -829,7 +826,6 @@ PerlStdIOGetOSfhandle(struct IPerlStdIO* piPerl, int filenum) FILE* PerlStdIOFdupopen(struct IPerlStdIO* piPerl, FILE* pf) { -#ifndef UNDER_CE FILE* pfdup; fpos_t pos; char mode[3]; @@ -861,9 +857,6 @@ PerlStdIOFdupopen(struct IPerlStdIO* piPerl, FILE* pf) fsetpos(pfdup, &pos); } return pfdup; -#else - return 0; -#endif } const struct IPerlStdIO perlStdIO = @@ -2132,10 +2125,6 @@ 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); |