|
Lines 65-70
Link Here
|
| 65 |
print OUT <<'EOT'; |
65 |
print OUT <<'EOT'; |
| 66 |
my $modpname = join('/',@modparts); |
66 |
my $modpname = join('/',@modparts); |
| 67 |
my $modlibname = (caller())[1]; |
67 |
my $modlibname = (caller())[1]; |
|
|
68 |
# OE: Allow env to form dynamic loader to look in a different place |
| 69 |
# This is so it finds the host .so files, not the targets |
| 70 |
if (defined $ENV{PERLHOSTLIB}) |
| 71 |
{ |
| 72 |
my $hostlib = $ENV{PERLHOSTLIB}; |
| 73 |
print STDERR "*** Module name IN: $modlibname\n"; |
| 74 |
$modlibname =~ s#(?<!/)(\.\./)*lib/#$hostlib/#g; |
| 75 |
print STDERR "*** Module name OUT: $modlibname\n"; |
| 76 |
} |
| 68 |
my $c = @modparts; |
77 |
my $c = @modparts; |
| 69 |
$modlibname =~ s,[\\/][^\\/]+$,, while $c--; # Q&D basename |
78 |
$modlibname =~ s,[\\/][^\\/]+$,, while $c--; # Q&D basename |
| 70 |
my $file = "$modlibname/auto/$modpname/$modfname.$dl_dlext"; |
79 |
my $file = "$modlibname/auto/$modpname/$modfname.$dl_dlext"; |
