summaryrefslogtreecommitdiff
path: root/systems/texlive/tlnet/tlpkg/tlperl/lib/CORE/perlhost.h
diff options
context:
space:
mode:
authorNorbert Preining <norbert@preining.info>2021-04-02 03:20:54 +0000
committerNorbert Preining <norbert@preining.info>2021-04-02 03:20:54 +0000
commit3f173002d4a4a84e7d1fa5a74755fdd00d08a9c2 (patch)
tree5ed380344702de1f9ab53b68b6c3bcd6b8458087 /systems/texlive/tlnet/tlpkg/tlperl/lib/CORE/perlhost.h
parentf78ba658b3ecd56053fe0837a4404d0c6c16a707 (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.h13
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);