MM_OS2.pm revision 7c478bd95313f5f23a4c958a745db2134aa03244
#use Config;
#use Cwd;
#use File::Basename;
require Exporter;
Exporter::import('ExtUtils::MakeMaker',
sub dlsyms {
my(@m);
push(@m,"
",
' $(PERL) "-I$(PERL_ARCHLIB)" "-I$(PERL_LIB)" -e \'use ExtUtils::Mksymlists; \\
'"VERSION" => "$(VERSION)", "DISTNAME" => "$(DISTNAME)", ',
'"INSTALLDIRS" => "$(INSTALLDIRS)", ',
');
}
# Make import files (needed for static build)
-d 'tmp_imp' or mkdir 'tmp_imp', 0777 or die "Can't mkdir tmp_imp";
print IMP "$name $lib $id ?\n";
}
close IMP or die "Can't close tmpimp.imp";
# print "emximp -o tmpimp$Config::Config{lib_ext} tmpimp.imp\n";
system "emximp -o tmpimp$Config::Config{lib_ext} tmpimp.imp"
and die "Cannot make import library: $!, \$?=$?";
unlink <tmp_imp/*>;
system "cd tmp_imp; $Config::Config{ar} x ../tmpimp$Config::Config{lib_ext}"
and die "Cannot extract import objects: $!, \$?=$?";
}
join('',@m);
}
sub static_lib {
my($self) = @_;
}
$man =~ s,/+,.,g;
$man;
}
sub maybe_command {
$file =~ s,[/\\]+,/,g;
return "$file.exe" if -x "$file.exe" && ! -d _;
return "$file.cmd" if -x "$file.cmd" && ! -d _;
return;
}
sub file_name_is_absolute {
$file =~ m{^([a-z]:)?[\\/]}i ;
}
sub perl_archive
{
return "\$(PERL_INC)/libperl\$(LIB_EXT)";
}
=item perl_archive_after
This is an internal method that returns path to a library which
should be put on the linker command line I<after> the external libraries
to be linked to dynamic extensions. This may be needed if the linker
is one-pass, and Perl includes some overrides for C RTL functions,
such as malloc().
=cut
{
return "";
}
sub export_list
{
my ($self) = @_;
return "$self->{BASEEXT}.def";
}
1;
=head1 NAME
ExtUtils::MM_OS2 - methods to override UN*X behaviour in ExtUtils::MakeMaker
=head1 SYNOPSIS
use ExtUtils::MM_OS2; # Done internally by ExtUtils::MakeMaker if needed
=head1 DESCRIPTION
See ExtUtils::MM_Unix for a documentation of the methods provided
there. This package overrides the implementation of these methods, not
the semantics.