package ExtUtils::Liblist;
-
+use vars qw($VERSION);
# Broken out of MakeMaker from version 4.11
+$VERSION = substr q$Revision: 1.20 $, 10;
+
use Config;
-use Cwd;
+use Cwd 'cwd';
use File::Basename;
my $Config_libext = $Config{lib_ext} || ".a";
sub ext {
my($self,$potential_libs, $Verbose) = @_;
- if ($Config{osname} =~ m|^os/?2$|i and $Config{libs}) {
+ if ($^O =~ 'os2' and $Config{libs}) {
# Dynamic libraries are not transitive, so we may need including
# the libraries linked against perl.dll again.
my(@libpath) = split " ", $Config{'libpth'};
my(@ldloadlibs, @bsloadlibs, @extralibs, @ld_run_path, %ld_run_path_seen);
my($fullname, $thislib, $thispth, @fullname);
- my($pwd) = fastcwd(); # from Cwd.pm
+ my($pwd) = cwd(); # from Cwd.pm
my($found) = 0;
foreach $thislib (split ' ', $potential_libs){
if $Verbose;
next;
}
- if ($thislib !~ m|^/|) {
+ unless ($self->file_name_is_absolute($thislib)) {
print STDOUT "Warning: $ptype$thislib changed to $ptype$pwd/$thislib\n";
- $thislib = "$pwd/$thislib";
+ $thislib = $self->catdir($pwd,$thislib);
}
push(@searchpath, $thislib);
push(@extralibs, "$ptype$thislib");
} elsif (-f ($fullname="$thispth/lib$thislib$Config_libext")){
} elsif (-f ($fullname="$thispth/$thislib$Config_libext")){
} elsif (-f ($fullname="$thispth/Slib$thislib$Config_libext")){
- } elsif ($Config{'osname'} eq 'dgux'
+ } elsif ($^O eq 'dgux'
&& -l ($fullname="$thispth/lib$thislib$Config_libext")
&& readlink($fullname) =~ /^elink:/) {
# Some of DG's libraries look like misconnected symbolic
# Do not add it into the list if it is already linked in
# with the main perl executable.
- # We have to special-case the NeXT, because all the math
- # is also in libsys_s
+ # We have to special-case the NeXT, because math and ndbm
+ # are both in libsys_s
unless ($in_perl ||
- ($Config{'osname'} eq 'next' && $thislib eq 'm') ){
+ ($Config{'osname'} eq 'next' &&
+ ($thislib eq 'm' || $thislib eq 'ndbm')) ){
push(@extralibs, "-l$thislib");
}
# We might be able to load this archive file dynamically
- if ( $Config{'dlsrc'} =~ /dl_next|dl_dld/){
+ if ( ($Config{'dlsrc'} =~ /dl_next/ && $Config{'osvers'} lt '4_0')
+ || ($Config{'dlsrc'} =~ /dl_dld/) )
+ {
# We push -l$thislib instead of $fullname because
# it avoids hardwiring a fixed path into the .bs file.
# Mkbootstrap will automatically add dl_findfile() to
# For SunOS4, do not add in this shared library if
# it is already linked in the main perl executable
push(@ldloadlibs, "-l$thislib")
- unless ($in_perl and $Config{'osname'} eq 'sunos');
+ unless ($in_perl and $^O eq 'sunos');
} else {
push(@ldloadlibs, "-l$thislib");
}