bintopia.com - BlackDragon

Linux iai.iais.com.au 3.10.0-957.27.2.el7.x86_64 #1 SMP Mon Jul 29 17:46:05 UTC 2019 x86_64
Apache
221.121.155.106
78 Domain

URL to Upload

File Name

Upload Method

Upload from URL

File Name : 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 = '6.68';

=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/a$/dll.a/;
        }
        $self->{PERL_ARCHIVE} = $libperl;
    } else {
        $self->{PERL_ARCHIVE} = 
          '$(PERL_INC)' .'/'. ("$Config{libperl}" or "libperl.a");
    }

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

=item maybe_command

If our path begins with F</cygdrive/> then we use C<ExtUtils::MM_Win32>
to determine if it may be a command.  Otherwise we use the tests
from C<ExtUtils::MM_Unix>.

=cut

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

if ($file =~ m{^/cygdrive/}i) {
        return ExtUtils::MM_Win32->maybe_command($file);
    }

return $self->SUPER::maybe_command($file);
}

=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);
    my $ori = "$self->{INSTALLARCHLIB}/auto/$self->{FULLEXT}/$self->{BASEEXT}.$self->{DLEXT}";
    if (-e $ori) {
        my $imagebase = `/bin/objdump -p $ori | /bin/grep ImageBase | /bin/cut -c12-`;
        chomp $imagebase;
        if ($imagebase gt "40000000") {
            my $LDDLFLAGS = $self->{LDDLFLAGS};
            $LDDLFLAGS =~ s/-Wl,--enable-auto-image-base/-Wl,--image-base=0x$imagebase/;
            $s =~ s/ \$$LDDLFLAGS$ / $LDDLFLAGS /m;
        }
    }
    $s;
}

=item all_target

Build man pages, too

=cut

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

=back

=cut

Name	Type	Size	Owner/Group	Permission	Last Modified	Actions
.	dir	-	root/root	drwxr-xr-x	2017-09-14 04:24:41
..	dir	-	root/root	drwxr-xr-x	2026-01-20 03:21:53
Command	dir	-	root/root	drwxr-xr-x	2016-07-20 04:48:47
Liblist	dir	-	root/root	drwxr-xr-x	2016-07-20 04:48:47
MakeMaker	dir	-	root/root	drwxr-xr-x	2016-07-20 04:48:47
ParseXS	dir	-	root/root	drwxr-xr-x	2017-09-14 04:24:41
Typemaps	dir	-	root/root	drwxr-xr-x	2017-09-14 04:24:41
Liblist.pm	file	9.47 KB	root/root	-rw-r--r--	2014-06-10 01:58:18
MANIFEST.SKIP	file	824 B	root/root	-rw-r--r--	2012-09-11 02:25:30
MM.pm	file	2.06 KB	root/root	-rw-r--r--	2013-06-14 10:26:40
MM_AIX.pm	file	1.53 KB	root/root	-rw-r--r--	2013-06-14 10:26:40
MM_Any.pm	file	68.58 KB	root/root	-rw-r--r--	2013-06-14 10:26:40
MM_BeOS.pm	file	982 B	root/root	-rw-r--r--	2013-06-14 10:26:40
MM_Cygwin.pm	file	3.04 KB	root/root	-rw-r--r--	2013-06-14 10:26:40
MM_DOS.pm	file	950 B	root/root	-rw-r--r--	2013-06-14 10:26:40
MM_Darwin.pm	file	918 B	root/root	-rw-r--r--	2013-06-14 10:26:40
MM_MacOS.pm	file	1.08 KB	root/root	-rw-r--r--	2013-06-14 10:26:40
MM_NW5.pm	file	6.41 KB	root/root	-rw-r--r--	2013-06-14 10:26:40
MM_OS2.pm	file	3.75 KB	root/root	-rw-r--r--	2013-06-14 10:26:40
MM_QNX.pm	file	868 B	root/root	-rw-r--r--	2013-06-14 10:26:40
MM_UWIN.pm	file	955 B	root/root	-rw-r--r--	2013-06-14 10:26:40
MM_Unix.pm	file	91.82 KB	root/root	-rw-r--r--	2014-06-10 01:58:18
MM_VMS.pm	file	59.65 KB	root/root	-rw-r--r--	2013-06-14 10:26:40
MM_VOS.pm	file	723 B	root/root	-rw-r--r--	2013-06-14 10:26:40
MM_Win32.pm	file	13.85 KB	root/root	-rw-r--r--	2013-06-14 10:26:40
MM_Win95.pm	file	1.87 KB	root/root	-rw-r--r--	2013-06-14 10:26:40
MY.pm	file	652 B	root/root	-rw-r--r--	2013-06-14 10:26:40
MakeMaker.pm	file	91.59 KB	root/root	-rw-r--r--	2014-06-10 01:58:18
Manifest.pm	file	22.52 KB	root/root	-rw-r--r--	2012-09-11 02:25:30
Mkbootstrap.pm	file	3.11 KB	root/root	-rw-r--r--	2013-06-14 10:26:40
Mksymlists.pm	file	10.5 KB	root/root	-rw-r--r--	2013-06-14 10:26:40
ParseXS.pm	file	60.01 KB	root/root	-rw-r--r--	2012-11-19 06:31:23
ParseXS.pod	file	3.74 KB	root/root	-rw-r--r--	2012-01-28 11:51:59
Typemaps.pm	file	24.81 KB	root/root	-rw-r--r--	2017-08-02 05:43:45
testlib.pm	file	891 B	root/root	-rw-r--r--	2013-06-14 10:26:40
xsubpp	link	4.45 KB	root/root	-rwxr-xr-x	2017-08-02 05:43:45