summaryrefslogtreecommitdiff
path: root/systems/texlive/tlnet/tlpkg/tlperl/lib/CORE/perl_inc_macro.h
diff options
context:
space:
mode:
authorNorbert Preining <norbert@preining.info>2024-03-15 03:06:35 +0000
committerNorbert Preining <norbert@preining.info>2024-03-15 03:06:35 +0000
commit12679ab7d3c2a210f4123163671b532b8b55d5f9 (patch)
tree0060d13467186ad977f4e73488ee20dd6c0017ab /systems/texlive/tlnet/tlpkg/tlperl/lib/CORE/perl_inc_macro.h
parent62170822e034fdd3f81de7274835d0d3b0467100 (diff)
CTAN sync 202403150306
Diffstat (limited to 'systems/texlive/tlnet/tlpkg/tlperl/lib/CORE/perl_inc_macro.h')
-rw-r--r--systems/texlive/tlnet/tlpkg/tlperl/lib/CORE/perl_inc_macro.h13
1 files changed, 1 insertions, 12 deletions
diff --git a/systems/texlive/tlnet/tlpkg/tlperl/lib/CORE/perl_inc_macro.h b/systems/texlive/tlnet/tlpkg/tlperl/lib/CORE/perl_inc_macro.h
index b9cd60947e..627a63a817 100644
--- a/systems/texlive/tlnet/tlpkg/tlperl/lib/CORE/perl_inc_macro.h
+++ b/systems/texlive/tlnet/tlpkg/tlperl/lib/CORE/perl_inc_macro.h
@@ -77,8 +77,6 @@
#if defined(WIN32)
# define INCPUSH_PRIVLIB_EXP s = PerlEnv_lib_path(PERL_FS_VERSION, &len); \
if (s) incpush_use_sep(s, len, INCPUSH_ADD_SUB_DIRS|INCPUSH_CAN_RELOCATE);
-#elif defined(NETWARE)
-# define INCPUSH_PRIVLIB_EXP S_incpush_use_sep(aTHX_ PRIVLIB_EXP, 0, INCPUSH_CAN_RELOCATE);
#else
# define INCPUSH_PRIVLIB_EXP S_incpush_use_sep(aTHX_ STR_WITH_LEN(PRIVLIB_EXP), INCPUSH_CAN_RELOCATE);
#endif
@@ -91,18 +89,9 @@
/* submacros for INCPUSH_PERL5LIB */
-#if defined(PERL_USE_SAFE_PUTENV) && ! defined(HAS_UNSETENV)
-# define _INCPUSH_PERL5LIB_IF if (perl5lib && *perl5lib != '\0')
-#else
-# define _INCPUSH_PERL5LIB_IF if (perl5lib)
-#endif
+#define _INCPUSH_PERL5LIB_IF if (perl5lib && *perl5lib != '\0')
#ifndef VMS
-/*
- * It isn't possible to delete an environment variable with
- * PERL_USE_SAFE_PUTENV set unless unsetenv() is also available, so in that
- * case we treat PERL5LIB as undefined if it has a zero-length value.
- */
# define _INCPUSH_PERL5LIB_ADD _INCPUSH_PERL5LIB_IF incpush_use_sep(perl5lib, 0, INCPUSH_ADD_OLD_VERS|INCPUSH_NOT_BASEDIR);
#else
/* VMS */