File Manager

X7ROOT File Manager

Current Path: /usr/share/perl5/vendor_perl/ExtUtils

usr / share / perl5 / vendor_perl / ExtUtils /

?? ..
?? CBuilder
?? CBuilder.pm(8.67 KB)
?? Command
?? Command.pm(7.62 KB)
?? Install.pm(40.06 KB)
?? Installed.pm(14.03 KB)
?? Liblist
?? Liblist.pm(9.51 KB)
?? MANIFEST.SKIP(971 B)
?? MM
?? MM.pm(2.09 KB)
?? MM_AIX.pm(1.37 KB)
?? MM_Any.pm(80.81 KB)
?? MM_BeOS.pm(1.02 KB)
?? MM_Cygwin.pm(3.99 KB)
?? MM_DOS.pm(1.03 KB)
?? MM_Darwin.pm(936 B)
?? MM_MacOS.pm(892 B)
?? MM_NW5.pm(5.34 KB)
?? MM_OS2.pm(3.14 KB)
?? MM_QNX.pm(894 B)
?? MM_UWIN.pm(981 B)
?? MM_Unix.pm(108.47 KB)
?? MM_VMS.pm(66.52 KB)
?? MM_VOS.pm(749 B)
?? MM_Win32.pm(14.06 KB)
?? MM_Win95.pm(1.25 KB)
?? MY.pm(678 B)
?? MakeMaker
?? MakeMaker.pm(107.94 KB)
?? Manifest.pm(22.89 KB)
?? Mkbootstrap.pm(3.23 KB)
?? Mksymlists.pm(10.74 KB)
?? Packlist.pm(8.36 KB)
?? ParseXS
?? ParseXS.pm(65.01 KB)
?? ParseXS.pod(4.3 KB)
?? Typemaps
?? Typemaps.pm(26.17 KB)
?? testlib.pm(916 B)
?? xsubpp(4.96 KB)

Editing: MM_OS2.pm

package ExtUtils::MM_OS2;

use strict;

use ExtUtils::MakeMaker qw(neatvalue);
use File::Spec;

our $VERSION = '7.34';
$VERSION = eval $VERSION;

require ExtUtils::MM_Any;
require ExtUtils::MM_Unix;
our @ISA = qw(ExtUtils::MM_Any ExtUtils::MM_Unix);

=pod

=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.

=head1 METHODS

=over 4

=item init_dist

Define TO_UNIX to convert OS2 linefeeds to Unix style.

=cut

sub init_dist {
    my($self) = @_;

$self->{TO_UNIX} ||= <<'MAKE_TEXT';
$(NOECHO) $(TEST_F) tmp.zip && $(RM_F) tmp.zip; $(ZIP) -ll -mr tmp.zip $(DISTVNAME) && unzip -o tmp.zip && $(RM_F) tmp.zip
MAKE_TEXT

$self->SUPER::init_dist;
}

sub dlsyms {
    my($self,%attribs) = @_;
    if ($self->{IMPORTS} && %{$self->{IMPORTS}}) {
	# Make import files (needed for static build)
	-d 'tmp_imp' or mkdir 'tmp_imp', 0777 or die "Can't mkdir tmp_imp";
	open my $imp, '>', 'tmpimp.imp' or die "Can't open tmpimp.imp";
	foreach my $name (sort keys %{$self->{IMPORTS}}) {
	    my $exp = $self->{IMPORTS}->{$name};
	    my ($lib, $id) = ($exp =~ /(.*)\.(.*)/) or die "Malformed IMPORT `$exp'";
	    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: $!, \$?=$?";
	# May be running under miniperl, so have no glob...
	eval { unlink <tmp_imp/*>; 1 } or system "rm tmp_imp/*";
	system "cd tmp_imp; $Config::Config{ar} x ../tmpimp$Config::Config{lib_ext}"
	    and die "Cannot extract import objects: $!, \$?=$?";
    }
    return '' if $self->{SKIPHASH}{'dynamic'};
    $self->xs_dlsyms_iterator(\%attribs);
}

sub xs_dlsyms_ext {
    '.def';
}

sub xs_dlsyms_extra {
    join '', map { qq{, "$_" => "\$($_)"} } qw(VERSION DISTNAME INSTALLDIRS);
}

sub static_lib_pure_cmd {
    my($self) = @_;
    my $old = $self->SUPER::static_lib_pure_cmd;
    return $old unless $self->{IMPORTS} && %{$self->{IMPORTS}};
    $old . <<'EOC';
	$(AR) $(AR_STATIC_ARGS) "$@" tmp_imp/*
	$(RANLIB) "$@"
EOC
}

sub replace_manpage_separator {
    my($self,$man) = @_;
    $man =~ s,/+,.,g;
    $man;
}

sub maybe_command {
    my($self,$file) = @_;
    $file =~ s,[/\\]+,/,g;
    return $file if -x $file && ! -d _;
    return "$file.exe" if -x "$file.exe" && ! -d _;
    return "$file.cmd" if -x "$file.cmd" && ! -d _;
    return;
}

=item init_linker

=cut

sub init_linker {
    my $self = shift;

$self->{PERL_ARCHIVE} = "\$(PERL_INC)/libperl\$(LIB_EXT)";

$self->{PERL_ARCHIVEDEP} ||= '';
    $self->{PERL_ARCHIVE_AFTER} = $OS2::is_aout
      ? ''
      : '$(PERL_INC)/libperl_override$(LIB_EXT)';
    $self->{EXPORT_LIST} = '$(BASEEXT).def';
}

=item os_flavor

OS/2 is OS/2

=cut

sub os_flavor {
    return('OS/2');
}

=item xs_static_lib_is_xs

=cut

sub xs_static_lib_is_xs {
    return 1;
}

=back

=cut

X7ROOT File Manager

Editing: MM_OS2.pm

Upload File

Create Folder