From owner-FreeBSD-users-jp@jp.FreeBSD.org Thu Feb 20 00:29:39 2003
Received: (from daemon@localhost)
	by castle.jp.FreeBSD.org (8.11.6+3.4W/8.11.3) id h1JFTdK62310;
	Thu, 20 Feb 2003 00:29:39 +0900 (JST)
	(envelope-from owner-FreeBSD-users-jp@jp.FreeBSD.org)
Received: from pelsia.private.ensure-tech.co.jp (cl-server.ensure-tech.co.jp [211.18.249.19])
	by castle.jp.FreeBSD.org (8.11.6+3.4W/8.11.3) with ESMTP/inet id h1JFTdi62305
	for <FreeBSD-users-jp@jp.FreeBSD.org>; Thu, 20 Feb 2003 00:29:39 +0900 (JST)
	(envelope-from nork@ensure-tech.co.jp)
Received: from pelsia.private.ensure-tech.co.jp (localhost [127.0.0.1])
	by pelsia.private.ensure-tech.co.jp (8.12.6/8.12.6) with ESMTP id h1JFTce0033047
	for <FreeBSD-users-jp@jp.FreeBSD.org>; Thu, 20 Feb 2003 00:29:38 +0900 (JST)
	(envelope-from nork@ensure-tech.co.jp)
Received: (from nork@localhost)
	by pelsia.private.ensure-tech.co.jp (8.12.6/8.12.6/Submit) id h1JFTbca033046;
	Thu, 20 Feb 2003 00:29:37 +0900 (JST)
	(envelope-from nork)
From: nork@cityfujisawa.ne.jp (Norikatsu Shigemura)
To: FreeBSD-users-jp@jp.FreeBSD.org
In-Reply-To: Your message of "Wed, 19 Feb 2003 23:42:09 +0900".
	<200302191442.h1JEg4MF084453@akane.vegalta.org>
X-Mailer: mnews [version 1.22PL5] 2001-02/07(Wed)
Mime-Version: 1.0
Content-Type: text/plain; charset=ISO-2022-JP
Message-ID: <030220002937.M0133029@pelsia.ensure-tech.co.jp>
Reply-To: FreeBSD-users-jp@jp.FreeBSD.org
Precedence: list
Date: Thu, 20 Feb 2003 00:29:37 +0900
X-Sequence: FreeBSD-users-jp 73502
Subject: [FreeBSD-users-jp 73502] Re: perl =?ISO-2022-JP?B?GyRCJE4bKEI=?=
	@INC =?ISO-2022-JP?B?GyRCJEskRCQkJEYbKEI=?= 
Errors-To: owner-FreeBSD-users-jp@jp.FreeBSD.org
Sender: owner-FreeBSD-users-jp@jp.FreeBSD.org
X-Originator: nork@cityfujisawa.ne.jp
X-Distribute: distribute version 2.1 (Alpha) patchlevel 24e+030107

$B=EB<K!9n$G$9!#(B

2003/02/19 23:42 $B$K(BTOGAWA Satoshi$B$5$s$O=q$-$^$7$?(B.
>> $B$3$l$@$H!$%Y!<%9%7%9%F%`$K4^$^$l$F$$$k(Bperl$B%b%8%e!<%k$N?7HG$r(Bports$B$+$i(B
>> $BF~$l$?>l9g$G$b!$%Y!<%9%7%9%F%`$N$b$N$,@h$K8+$D$+$C$F$7$^$&$H$*$b$$$^$9!%(B

>> $B$=$&$$$&$b$N$J$N$G$7$g$&$+(B?

	$B%?%V!<$G$9(B($B0c(B)$B!#(B

	4.7-RELEASE $BA0$"$?$j$K=gHVJQ$($k=$@5$,F~$j$^$7$?!#K\<AE*$K$O(B
	$B2<5-$N%Q%C%A$,$=$&$G$9!#5$$K$J$k$J$i%m!<%+%k$GEv$F$F$$$?$@$/(B
	$B$3$H$K$J$j$^$9!#(B $B8=:_$N(B ports-current $B$O$3$N=gHV$K$J$C$F$$$k(B
	$B$N$,A0Ds$H$J$C$F$$$k$N$G(B, $B0JA0$N$h$&$KJB$S$K4X$9$k%U%)%m!<$O(B
	$BL5$/$J$C$F$$$^$9(B(5-CURRENT $B$H$NBP1~$,BgJQ$K$J$C$?$?$a(B)$B!#(B

# 4.5 $B$+$iF~$l$FM_$7$+$C$?(B($B$\$=$C(B). < $B2TF/Cf(B

- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
--- contrib/perl5/perl.c.orig   Mon May  3 00:18:15 1999
+++ contrib/perl5/perl.c        Wed Nov 20 11:07:51 2002
@@ -2705,18 +2705,6 @@
     incpush(APPLLIB_EXP, TRUE);
 #endif
 
-#ifdef ARCHLIB_EXP
-    incpush(ARCHLIB_EXP, FALSE);
-#endif
-#ifndef PRIVLIB_EXP
-#define PRIVLIB_EXP "/usr/local/lib/perl5:/usr/local/lib/perl"
-#endif
-#if defined(WIN32) 
-    incpush(PRIVLIB_EXP, TRUE);
-#else
-    incpush(PRIVLIB_EXP, FALSE);
-#endif
-
 #ifdef SITEARCH_EXP
     incpush(SITEARCH_EXP, FALSE);
 #endif
@@ -2729,6 +2717,18 @@
 #endif
     if (!PL_tainting)
        incpush(".", FALSE);
+
+#ifdef ARCHLIB_EXP
+    incpush(ARCHLIB_EXP, FALSE);
+#endif
+#ifndef PRIVLIB_EXP
+#define PRIVLIB_EXP "/usr/local/lib/perl5:/usr/local/lib/perl"
+#endif
+#if defined(WIN32) 
+    incpush(PRIVLIB_EXP, TRUE);
+#else
+    incpush(PRIVLIB_EXP, FALSE);
+#endif
 }
 
 #if defined(DOSISH)
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
