From owner-ports-jp@jp.freebsd.org  Tue Jun 23 15:22:05 1998
Received: (from daemon@localhost)
	by jaz.jp.freebsd.org (8.8.8+3.0Wbeta13/8.7.3) id PAA29567;
	Tue, 23 Jun 1998 15:22:05 +0900 (JST)
	(envelope-from owner-ports-jp@jp.FreeBSD.org)
Received: from ail.ail-inc.co.jp ([210.145.48.250])
	by jaz.jp.freebsd.org (8.8.8+3.0Wbeta13/8.7.3) with ESMTP id PAA29561
	for <ports-jp@jp.freebsd.org>; Tue, 23 Jun 1998 15:22:03 +0900 (JST)
	(envelope-from sada@ail-inc.co.jp)
Received: from amygdala.ail-inc.co.jp (amygdala.ail-inc.co.jp [210.145.48.251])
	by ail.ail-inc.co.jp (8.8.5/3.6W) with ESMTP id PAA25111
	for <ports-jp@jp.freebsd.org>; Tue, 23 Jun 1998 15:22:01 +0900 (JST)
Message-Id: <199806230622.PAA25111@ail.ail-inc.co.jp>
Received: (from sada@localhost)
	by amygdala.ail-inc.co.jp (8.8.8/3.6W98030310) id PAA15973;
	Tue, 23 Jun 1998 15:20:05 +0900 (JST)
Date: Tue, 23 Jun 1998 15:20:05 +0900 (JST)
To: ports-jp@jp.freebsd.org
In-Reply-To: Your message of "Tue, 23 Jun 1998 13:20:42 JST".
	<19980623132042X.taoka@infonets.hiroshima-u.ac.jp>
From: sada@e-mail.ne.jp (SADA Kenji)
Mime-Version: 1.0
Content-Type: text/plain; charset=ISO-2022-JP
X-Mailer: mnews [version 1.21] 1997-12/23(Tue)
Reply-To: ports-jp@jp.freebsd.org
Precedence: bulk
X-Distribute: distribute [version 2.1 (Alpha) patchlevel=24]
X-Sequence: ports-jp 3594
Subject: [ports-jp 3594] Re: jcode.pl
Errors-To: owner-ports-jp@jp.freebsd.org
Sender: owner-ports-jp@jp.freebsd.org

$BL>8E20$N:4ED$G$9!#(B

<19980623132042X.taoka@infonets.hiroshima-u.ac.jp>$B$N5-;v$K$*$$$F(B
taoka@infonets.hiroshima-u.ac.jp$B$5$s$O=q$-$^$7$?!#(B

>> FreeBSD$B$G$O!"$$$D$J$k$N$@$m$&!)$J$<!"(Bperl4$B$N$^$^$J$N$G$7$g$&$M!)(B

$BHyL/$JHs8_49@-$,$I$3$+$G0z$C$+$+$C$F$$$k$N$+$J$!$H$+;W$C$F$$$^$7$?!#(B

>> > $B:4ED$5$s$N$3$N$*9M$($O!$H~$7$$2r$@$H;W$$$^$9!%(B

*^-^*

>> /usr/bin/perl$B!J(Bperl4$B!K$G!";H$($k%9%/%j%W%H$O!"(B/usr/local/lib/perl$B$K!"$=(B
>> $B$l$,!"$b$7!"(Bperl5$B$G$b;H$($k$J$i$P!"(B/usr/local/lib/perl$B$N%9%/%j%W%H$r(B
>> /usr/local/lib/perl5/site_perl$B$X8~$1$F%j%s%/$OD%$k!#(B
>> 
>> perl5$B$N$_$N$b$N$O!"(B/usr/local/lib/perl5/site_perl$B$XF~$l$k!#(B
>> 
>> $B$C$F$N$G!"$I$&$G$7$g$&$+!#(B

jcode.pl $B$rF~$l$k;~E@$G(B perl5 $B$,F~$C$F$$$J$$$H!"%j%s%/$N(B
`/usr/local/lib/perl5/site_perl/jcode.pl' $B$,:n$l$^$;$s$M!#(B
$B$+$H8@$C$F$3$3$G$"$-$i$a$k$H!"8e$+$i(B perl5 $B$rF~$l$?>l9g$K$O(B
$B;H$($J$/$J$k$H$$$&$3$H$K$J$j$^$9!#(B

$B$G!"KM$N2r$O!V(Bperl5 $B$K$b(B patch $B$rEv$F$k!W$G$9!#(B
/usr/local/lib/perl $B$O!"M%@hEY$r2<$2$F(B perl5 $BB&$+$i$b6&M-$7$^$9!#(B
$B!V(Bperl4 $B$@$1$N(B library $B$O$I$&$9$k$N!W$H$$$&$3$H$K$J$k$+$b$7$l(B
$B$^$;$s$,!"$3$l$3$=(B rare $B$J$s$G5$$K$7$J$/$F$$$$$+$H;W$$$^$9!#(B

$B$H$j$"$($:!"(B /usr/bin/perl $B$NJ}$N(B patch $B$G$9!#(B
# $B$3$l$OH~$7$/$J$$$+$b$7$l$^$;$s!#(B

--- /usr/src/gnu/usr.bin/perl/perl/perl.c.orig	Fri Mar 13 04:27:47 1998
+++ /usr/src/gnu/usr.bin/perl/perl/perl.c	Tue Jun 23 14:40:00 1998
@@ -306,6 +306,8 @@
     incpush(getenv("PERLLIB"));
 #endif /* TAINT */
 
+    incpush("/usr/local/lib/perl"); /* for ports library */
+
 #ifndef PRIVLIB
 #define PRIVLIB "/usr/share/perl"
 #endif

--
"SADA Kenji" <sada@e-mail.ne.jp> <URL:http://hippo.ail-inc.co.jp/>
FreeBSD 2.2.6-R CD-R $BG[I[Cf(B <URL:http://hippo.ail-inc.co.jp/air/cdr/>
