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_Cygwin.pm

package ExtUtils::MM_Cygwin;

use strict;

use ExtUtils::MakeMaker::Config;
use File::Spec;

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

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

=head1 NAME

ExtUtils::MM_Cygwin - methods to override UN*X behaviour in ExtUtils::MakeMaker

=head1 SYNOPSIS

use ExtUtils::MM_Cygwin; # Done internally by ExtUtils::MakeMaker if needed

=head1 DESCRIPTION

See ExtUtils::MM_Unix for a documentation of the methods provided there.

=over 4

=item os_flavor

We're Unix and Cygwin.

=cut

sub os_flavor {
    return('Unix', 'Cygwin');
}

=item cflags

if configured for dynamic loading, triggers #define EXT in EXTERN.h

=cut

sub cflags {
    my($self,$libperl)=@_;
    return $self->{CFLAGS} if $self->{CFLAGS};
    return '' unless $self->needs_linking();

my $base = $self->SUPER::cflags($libperl);
    foreach (split /\n/, $base) {
        /^(\S*)\s*=\s*(\S*)$/ and $self->{$1} = $2;
    };
    $self->{CCFLAGS} .= " -DUSEIMPORTLIB" if ($Config{useshrplib} eq 'true');

return $self->{CFLAGS} = qq{
CCFLAGS = $self->{CCFLAGS}
OPTIMIZE = $self->{OPTIMIZE}
PERLTYPE = $self->{PERLTYPE}
};

}

=item replace_manpage_separator

replaces strings '::' with '.' in MAN*POD man page names

=cut

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

=item init_linker

points to libperl.a

=cut

sub init_linker {
    my $self = shift;

if ($Config{useshrplib} eq 'true') {
        my $libperl = '$(PERL_INC)' .'/'. "$Config{libperl}";
        if( $] >= 5.006002 ) {
            $libperl =~ s/(dll\.)?a$/dll.a/;
        }
        $self->{PERL_ARCHIVE} = $libperl;
    } else {
        $self->{PERL_ARCHIVE} =
          '$(PERL_INC)' .'/'. ("$Config{libperl}" or "libperl.a");
    }

$self->{PERL_ARCHIVEDEP} ||= '';
    $self->{PERL_ARCHIVE_AFTER} ||= '';
    $self->{EXPORT_LIST}  ||= '';
}

=item maybe_command

Determine whether a file is native to Cygwin by checking whether it
resides inside the Cygwin installation (using Windows paths). If so,
use C<ExtUtils::MM_Unix> to determine if it may be a command.
Otherwise use the tests from C<ExtUtils::MM_Win32>.

=cut

sub maybe_command {
    my ($self, $file) = @_;

my $cygpath = Cygwin::posix_to_win_path('/', 1);
    my $filepath = Cygwin::posix_to_win_path($file, 1);

return (substr($filepath,0,length($cygpath)) eq $cygpath)
    ? $self->SUPER::maybe_command($file) # Unix
    : ExtUtils::MM_Win32->maybe_command($file); # Win32
}

=item dynamic_lib

Use the default to produce the *.dll's.
But for new archdir dll's use the same rebase address if the old exists.

=cut

sub dynamic_lib {
    my($self, %attribs) = @_;
    my $s = ExtUtils::MM_Unix::dynamic_lib($self, %attribs);
    return '' unless $s;
    return $s unless %{$self->{XS}};

# do an ephemeral rebase so the new DLL fits to the current rebase map
    $s .= "\t/bin/find \$$INST_ARCHLIB$/auto -xdev -name \\*.$self->{DLEXT} | /bin/rebase -sOT -" if (( $Config{myarchname} eq 'i686-cygwin' ) and not ( exists $ENV{CYGPORT_PACKAGE_VERSION} ));
    $s;
}

=item install

Rebase dll's with the global rebase database after installation.

=cut

sub install {
    my($self, %attribs) = @_;
    my $s = ExtUtils::MM_Unix::install($self, %attribs);
    return '' unless $s;
    return $s unless %{$self->{XS}};

my $INSTALLDIRS = $self->{INSTALLDIRS};
    my $INSTALLLIB = $self->{"INSTALL". ($INSTALLDIRS eq 'perl' ? 'ARCHLIB' : uc($INSTALLDIRS)."ARCH")};
    my $dop = "\$$DESTDIR$$INSTALLLIB/auto/";
    my $dll = "$dop/$self->{FULLEXT}/$self->{BASEEXT}.$self->{DLEXT}";
    $s =~ s|^(pure_install :: pure_\$$INSTALLDIRS$_install\n\t)\$$NOECHO$ \$$NOOP$\n|$1\$(CHMOD) \$(PERM_RWX) $dll\n\t/bin/find $dop -xdev -name \\*.$self->{DLEXT} \| /bin/rebase -sOT -\n|m if (( $Config{myarchname} eq 'i686-cygwin') and not ( exists $ENV{CYGPORT_PACKAGE_VERSION} ));
    $s;
}

=item all_target

Build man pages, too

=cut

sub all_target {
    ExtUtils::MM_Unix::all_target(shift);
}

=back

=cut

X7ROOT File Manager

Editing: MM_Cygwin.pm

Upload File

Create Folder