diff options
| author | shige <shige@FreeBSD.org> | 2003-10-01 21:42:44 +0800 |
|---|---|---|
| committer | shige <shige@FreeBSD.org> | 2003-10-01 21:42:44 +0800 |
| commit | d273a2d36a61c4cde20b9bf7be71c13e1e468116 (patch) | |
| tree | 979d76080439af42d67a91c5fd16430b5e637781 /japanese | |
| parent | b31a7322497b7091ad525546ec8008263f0ee68a (diff) | |
| download | freebsd-ports-gnome-d273a2d36a61c4cde20b9bf7be71c13e1e468116.tar.gz freebsd-ports-gnome-d273a2d36a61c4cde20b9bf7be71c13e1e468116.tar.zst freebsd-ports-gnome-d273a2d36a61c4cde20b9bf7be71c13e1e468116.zip | |
Change order of module loading path.
PR: ports/57302
Submitted by: IIJIMA Hiromitsu <delmonta@ht.sakura.ne.jp>
Diffstat (limited to 'japanese')
| -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) |