From owner-FreeBSD-users-jp@jp.FreeBSD.org Wed Jul 12 09:46:59 2006
Received: (from daemon@localhost)
	by castle.jp.FreeBSD.org (8.11.6p2+3.4W/8.11.3) id k6C0kxh85250;
	Wed, 12 Jul 2006 09:46:59 +0900 (JST)
	(envelope-from owner-FreeBSD-users-jp@jp.FreeBSD.org)
Received: from shimako.yamayuri.org ([2001:380:e02:3f:213:ceff:fe04:a832])
	by castle.jp.FreeBSD.org (8.11.6p2+3.4W/8.11.3) with ESMTP/inet6 id k6C0kxQ85245
	for <FreeBSD-users-jp@jp.FreeBSD.org>; Wed, 12 Jul 2006 09:46:59 +0900 (JST)
	(envelope-from mistral@imasy.or.jp)
Received: from shimako.yamayuri.org (localhost [127.0.0.1])
	by shimako.yamayuri.org (8.13.6/8.13.6/shimako) with ESMTP id k6C0kvKZ017285
	(version=TLSv1/SSLv3 cipher=DHE-RSA-AES256-SHA bits=256 verify=NO)
	for <FreeBSD-users-jp@jp.FreeBSD.org>; Wed, 12 Jul 2006 09:46:57 +0900 (JST)
	(envelope-from mistral@imasy.or.jp)
Received: (from sarumaru@localhost)
	by shimako.yamayuri.org (8.13.6/8.13.6/Submit) id k6C0ks5a017284;
	Wed, 12 Jul 2006 09:46:54 +0900 (JST)
	(envelope-from sarumaru)
From: mistral@imasy.or.jp (Yoshihiko Sarumaru)
To: FreeBSD-users-jp@jp.FreeBSD.org
In-Reply-To: Your message of "Tue, 11 Jul 2006 01:58:56 +0900".
	<01a801c6a442$26f42890$0600a8c0@hongeVectra>
Mime-Version: 1.0
Content-Type: text/plain; charset=ISO-2022-JP
X-Mailer: mnews [version 1.22PL7] 2003-09/29(Mon)
Message-ID: <060712094654.M0102738@shimako.yamayuri.org>
Reply-To: FreeBSD-users-jp@jp.FreeBSD.org
Precedence: list
Date: Wed, 12 Jul 2006 09:46:54 +0900
X-Sequence: FreeBSD-users-jp 89733
Subject: [FreeBSD-users-jp 89733] Re: FreeBSD 6.1R
 =?ISO-2022-JP?B?GyRCJFglIiVDJVclMCVsITwlSSRHGyhC?= Perl
	=?ISO-2022-JP?B?GyRCJE5JVDZxOWcbKEI=?= 
Sender: owner-FreeBSD-users-jp@jp.FreeBSD.org
X-Originator: mistral@imasy.or.jp
X-Distribute: distribute version 2.1 (Alpha) patchlevel 24e+060209

$B!!1n4]$G$9!#(B

On Tue, Jul 11, 2006 at 01:58:56AM JST, "Hong Chen" wrote:
> $B1n4]!!$5$s(B
> 
> $B$465<($N%9%/%j%W%H$r<B9T$7$F$_$^$7$?!"7k2L$,$I$A$i$b(B
> $B!!(BCan't locate loadable object for module Digest::SHA1 in @INC
> $B$7$+FI$_$H$l$^$;$s$N$G!"@'Hs$4;XF34j$$$^$9!#(B
> $B!J(Benv$B$H(Bktrace $BN>J}=PNO!"D9J8<:Ni$7$^$9!#!K(B
> 
> >env PERL_DL_DEBUG=1 perl -e 'use Digest::SHA1;'
> DynaLoader.pm loaded (/usr/local/lib/perl5/5.8.8/BSDPAN
> /usr/local/lib/perl5/site_perl/5.8.8/mach
> /usr/local/lib/perl5/site_perl/5.8.8 /usr/local/lib/perl5/site_perl
> /usr/local/lib/perl5/5.8.8/mach /usr/local/lib/perl5/5.8.8 ., /usr/lib
> /usr/local/lib /usr/local/pgsql/lib)
> DynaLoader::bootstrap for Digest::SHA1 (auto/Digest/SHA1/SHA1.so)
> dl_findfile(-L/usr/local/lib/perl5/5.8.8/BSDPAN -L/usr/local/lib/perl5/site_
> perl/5.8.8/mach -L/usr/local/lib/perl5/site_perl/5.8.8 -L/usr/local/lib/perl
> 5/site_perl -L/usr/local/lib/perl5/5.8.8/mach -L/usr/local/lib/perl5/5.8.8 -
> L. SHA1)
>  checking in /usr/local/lib/perl5/5.8.8/BSDPAN for SHA1.so
>  checking in /usr/local/lib/perl5/5.8.8/BSDPAN for SHA1.so
>  checking in /usr/local/lib/perl5/5.8.8/BSDPAN for libSHA1.so
>  checking in /usr/local/lib/perl5/5.8.8/BSDPAN for SHA1
>  checking in /usr/local/lib/perl5/site_perl/5.8.8/mach for SHA1.so
>  checking in /usr/local/lib/perl5/site_perl/5.8.8/mach for SHA1.so
>  checking in /usr/local/lib/perl5/site_perl/5.8.8/mach for libSHA1.so
>  checking in /usr/local/lib/perl5/site_perl/5.8.8/mach for SHA1
($B0J2<N,(B)

  $B$J$s$G$&$^$/$$$+$J$$$N$+$h$/$o$+$i$J$$$N$G$9$,!"2<5-$NJQ99$r$7(B
$B$F!"$b$&$$$A$I(B 
env PERL_DL_DEBUG=1 perl -e 'use Digest::SHA1;'
$B$N=PNO$r$_$;$F$b$i$($^$9$+!)(B  $B;d$N$H$3$m$@$H(B
shimako% env PERL_DL_DEBUG=1 perl -e 'use Digest::SHA1;'                        DynaLoader.pm loaded (/usr/local/lib/perl5/5.8.8/BSDPAN /usr/local/lib/perl5/site_perl/5.8.8/mach /usr/local/lib/perl5/site_perl/5.8.8 /usr/local/lib/perl5/site_perl/5.8.7 /usr/local/lib/perl5/site_perl/5.005 /usr/local/lib/perl5/site_perl /usr/local/lib/perl5/5.8.8/mach /usr/local/lib/perl5/5.8.8 ., /usr/lib /usr/local/lib)
DynaLoader::bootstrap for Digest::SHA1 (auto/Digest/SHA1/SHA1.so)
/usr/local/lib/perl5/5.8.8/BSDPAN
/usr/local/lib/perl5/5.8.8/BSDPAN/auto/Digest/SHA1
/usr/local/lib/perl5/site_perl/5.8.8/mach
/usr/local/lib/perl5/site_perl/5.8.8/mach/auto/Digest/SHA1
/usr/local/lib/perl5/site_perl/5.8.8/mach/auto/Digest/SHA1/SHA1.so
$B$C$F46$8$K$J$j$^$9!#(B

  $B$h$m$7$/$*$M$,$$$7$^$9!#(B

--- /usr/local/lib/perl5/5.8.8/mach/DynaLoader.pm~	Wed Jul 12 09:43:21 2006
+++ /usr/local/lib/perl5/5.8.8/mach/DynaLoader.pm	Wed Jul 12 09:42:23 2006
@@ -168,6 +168,7 @@
 	if $dl_debug;
 
     foreach (@INC) {
+	print $_ . "\n";
 	chop($_ = VMS::Filespec::unixpath($_)) if $Is_VMS;
 	my $dir;
 	if ($Is_MacOS) {
@@ -181,10 +182,12 @@
 	    $dir = "$_/auto/$modpname";
 	}
 	
+	print $dir . "\n";
 	next unless -d $dir; # skip over uninteresting directories
 	
 	# check for common cases to avoid autoload of dl_findfile
 	my $try = $Is_MacOS ? "$dir:$modfname.$dl_dlext" : "$dir/$modfname.$dl_dlext";
+	print $try . "\n";
 	last if $file = ($do_expand) ? dl_expandspec($try) : ((-f $try) && $try);
 	
 	# no luck here, save dir for possible later dl_findfile search

--
sarumaru
