diff options
| author | H.Merijn Brand <h.m.brand@xs4all.nl> | 2016-11-11 16:39:03 +0100 |
|---|---|---|
| committer | H.Merijn Brand <h.m.brand@xs4all.nl> | 2016-11-11 16:39:03 +0100 |
| commit | 0e0a64d7d59ee834ed7d3dc77d91d8fd569a8b8c (patch) | |
| tree | cdd7ce1385c56dca75d85fbc727819d79a662dcb /perl.c | |
| parent | 3d7c117d5246fe5390f3fda7bd31308799d54201 (diff) | |
| download | perl-0e0a64d7d59ee834ed7d3dc77d91d8fd569a8b8c.tar.gz | |
Push current state to work on failing tests
Diffstat (limited to 'perl.c')
| -rw-r--r-- | perl.c | 9 |
1 files changed, 7 insertions, 2 deletions
@@ -4644,8 +4644,13 @@ S_init_perllib(pTHX) #endif #endif /* !PERL_IS_MINIPERL */ - if (!TAINTING_get) - S_incpush(aTHX_ STR_WITH_LEN("."), 0); + if (!TAINTING_get) { +#if !defined(PERL_IS_MINIPERL) && defined(DEFAULT_INC_EXCLUDES_DOT) + const char * const unsafe = PerlEnv_getenv("PERL_USE_UNSAFE_INC"); + if (unsafe && strEQ(unsafe, "1")) +#endif + S_incpush(aTHX_ STR_WITH_LEN("."), 0); + } } #if defined(DOSISH) || defined(__SYMBIAN32__) |