On Wednesday, May 15, 2002, at 09:16 , scotrn wrote:
>
> Works a little like this.
> BEGIN {
> use POSIX qw(uname);
> my ($uname_s, $uname_r) = (POSIX::uname())[0,2];
> unshift(@INC, "/var/opt/modules/$uname_s/$uname_r" );
> }
my premise here is that you did the install by OS to
each of these sub directories hence that below
/var/opt/modules/SunOS/5.6
we would find the expected
$PERLVER/sun4-solaris
site_perl/$PERLVER/sun4-solaris
site_perl/$PERLVER/
remember that they will need to see some stuff in the
auto section....
A proof of concept approach:
vladimir: 55:] find . -name "MD5*"
../site_perl/5.6.1/sun4-solaris/auto/Digest/MD5
../site_perl/5.6.1/sun4-solaris/auto/Digest/MD5/MD5.so
../site_perl/5.6.1/sun4-solaris/auto/Digest/MD5/MD5.bs
../site_perl/5.6.1/sun4-solaris/Digest/MD5.pm
vladimir: 56:]
{ try something like that for finding out where exactly Kstat
actually wound up on your NFS mount... }
So a part of the question is how did you hang them underneath
your top level directory on the NFS mounted file system....
I think I would try re-rigging your BEGIN with say:
my $PERLVER = ....
my ($uname_s, $uname_r) = (POSIX::uname())[0,2];
my @crank = qw!$PERLVER/sun4-solaris site_perl/$PERLVER/sun4-solaris
site_perl/$PERLVER/!;
my $top = "/var/opt/modules/$uname_s/$uname_r";
foreach my $dir (@crank) {
use lib "$top/$dir";
}
> use Solaris::Kstat;
>
> This adds /var/opt/modules/SunOS/5.6 to INC but
> DynaLoader cannot find Kstat.so in
> /var/opt/modules/SunOS/5.6/$archname/auto/Kstat/
> as documented in the use lib perldoc.
>
> Can't locate loadable object for module Solaris::Kstat in @INC (@INC
> contains: /var/opt/modules/SunOS/5.6
> /var/opt/local/lib/perl5/5.00503/sun4-solaris
> /var/opt/local/lib/perl5/5.00503
> /var/opt/local/lib/perl5/site_perl/5.005/sun4-solaris
> /var/opt/local/lib/perl5/site_perl/5.005 .) at ./dump_kstat line 9
> BEGIN failed--compilation aborted at ./dump_kstat line 9.
I hope that helps....
ciao
drieux
---
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
