diff options
| author | Shigeyuki Fukushima <shige@FreeBSD.org> | 2003-10-01 13:42:44 +0000 |
|---|---|---|
| committer | Shigeyuki Fukushima <shige@FreeBSD.org> | 2003-10-01 13:42:44 +0000 |
| commit | 86634d40087fc0feb133ca6617dc7eaf8d525b70 (patch) | |
| tree | aff8ca0a43d219aefc84d9f1a5e05197ab3350c3 /japanese/perl5 | |
| parent | 6f85f6f8fcca340b850d5a5cd920a085c69d7eaf (diff) | |
Notes
Diffstat (limited to 'japanese/perl5')
| -rw-r--r-- | japanese/perl5/files/patch-perl.c | 41 |
1 files changed, 41 insertions, 0 deletions
diff --git a/japanese/perl5/files/patch-perl.c b/japanese/perl5/files/patch-perl.c new file mode 100644 index 000000000000..2fab37209963 --- /dev/null +++ b/japanese/perl5/files/patch-perl.c @@ -0,0 +1,41 @@ +--- perl.c.orig Sun Mar 28 02:49:17 1999 ++++ perl.c Wed Oct 1 22:29:46 2003 +@@ -2701,6 +2768,18 @@ + /* Use the ~-expanded versions of APPLLIB (undocumented), + ARCHLIB PRIVLIB SITEARCH and SITELIB + */ ++#ifdef SITEARCH_EXP ++ incpush(SITEARCH_EXP, FALSE); ++#endif ++#ifdef SITELIB_EXP ++#if defined(WIN32) ++ incpush(SITELIB_EXP, TRUE); ++#else ++ incpush(SITELIB_EXP, FALSE); ++#endif ++#endif ++ if (!PL_tainting) ++ incpush(".", FALSE); + #ifdef APPLLIB_EXP + incpush(APPLLIB_EXP, TRUE); + #endif +@@ -2716,19 +2795,6 @@ + #else + incpush(PRIVLIB_EXP, FALSE); + #endif +- +-#ifdef SITEARCH_EXP +- incpush(SITEARCH_EXP, FALSE); +-#endif +-#ifdef SITELIB_EXP +-#if defined(WIN32) +- incpush(SITELIB_EXP, TRUE); +-#else +- incpush(SITELIB_EXP, FALSE); +-#endif +-#endif +- if (!PL_tainting) +- incpush(".", FALSE); + } + + #if defined(DOSISH) |