Gecko [ www.vortexaion.com ]

Name	Size	Permission	Date
CBuilder	[ DIR ]	drwxrwxrwx	2024-07-26 17:40
Command	[ DIR ]	drwxrwxrwx	2024-07-26 17:40
Constant	[ DIR ]	drwxrwxrwx	2024-07-26 17:40
Liblist	[ DIR ]	drwxrwxrwx	2024-07-26 17:40
MakeMaker	[ DIR ]	drwxrwxrwx	2024-07-26 17:40
ParseXS	[ DIR ]	drwxrwxrwx	2024-07-26 17:40
Typemaps	[ DIR ]	drwxrwxrwx	2024-07-26 17:40
CBuilder.pm	8.67 KB	-rw-rw-rw-	2020-11-01 16:54
Command.pm	7.63 KB	-rw-rw-rw-	2020-12-21 20:16
Constant.pm	14.7 KB	-rw-rw-rw-	2020-12-18 11:57
Embed.pm	12.45 KB	-rw-rw-rw-	2020-12-18 11:58
Install.pm	39.98 KB	-rw-rw-rw-	2020-12-18 14:42
Installed.pm	14 KB	-rw-rw-rw-	2020-12-18 14:42
Liblist.pm	9.29 KB	-rw-rw-rw-	2020-12-21 20:16
MANIFEST.SKIP	1.17 KB	-rw-rw-rw-	2021-01-16 22:58
MM.pm	2.13 KB	-rw-rw-rw-	2020-12-21 20:16
MM_AIX.pm	1.46 KB	-rw-rw-rw-	2020-12-21 20:16
MM_Any.pm	80.9 KB	-rw-rw-rw-	2020-12-21 20:16
MM_BeOS.pm	1.04 KB	-rw-rw-rw-	2020-12-21 20:16
MM_Cygwin.pm	4.03 KB	-rw-rw-rw-	2020-12-21 20:16
MM_DOS.pm	1.04 KB	-rw-rw-rw-	2020-12-21 20:16
MM_Darwin.pm	1.45 KB	-rw-rw-rw-	2020-12-21 20:16
MM_MacOS.pm	901 B	-rw-rw-rw-	2020-12-21 20:16
MM_NW5.pm	5.35 KB	-rw-rw-rw-	2020-12-21 20:16
MM_OS2.pm	3.15 KB	-rw-rw-rw-	2020-12-21 20:16
MM_OS390.pm	2.22 KB	-rw-rw-rw-	2020-12-21 20:16
MM_QNX.pm	907 B	-rw-rw-rw-	2020-12-21 20:16
MM_UWIN.pm	994 B	-rw-rw-rw-	2020-12-21 20:16
MM_Unix.pm	112.49 KB	-rw-rw-rw-	2020-12-21 20:16
MM_VMS.pm	66.68 KB	-rw-rw-rw-	2020-12-21 20:16
MM_VOS.pm	762 B	-rw-rw-rw-	2020-12-21 20:16
MM_Win32.pm	14.71 KB	-rw-rw-rw-	2020-12-21 20:16
MM_Win95.pm	1.26 KB	-rw-rw-rw-	2020-12-21 20:16
MY.pm	676 B	-rw-rw-rw-	2020-12-21 20:16
MakeMaker.pm	106.77 KB	-rw-rw-rw-	2020-12-21 20:16
Manifest.pm	22.94 KB	-rw-rw-rw-	2021-01-16 22:58
Miniperl.pm	7.5 KB	-rw-rw-rw-	2020-12-18 12:04
Mkbootstrap.pm	3.2 KB	-rw-rw-rw-	2020-12-21 20:16
Mksymlists.pm	10.75 KB	-rw-rw-rw-	2020-12-21 20:16
PL2Bat.pm	5.1 KB	-rw-rw-rw-	2020-07-16 21:20
Packlist.pm	8.34 KB	-rw-rw-rw-	2020-12-18 14:42
ParseXS.pm	65.3 KB	-rw-rw-rw-	2020-12-18 12:04
ParseXS.pod	4.3 KB	-rw-rw-rw-	2020-12-18 11:58
Typemaps.pm	26.26 KB	-rw-rw-rw-	2020-12-18 11:58
testlib.pm	911 B	-rw-rw-rw-	2020-12-21 20:16
typemap	11.05 KB	-rw-rw-rw-	2020-12-18 11:58
xsubpp	4.95 KB	-rw-rw-rw-	2020-12-18 11:58

Rename

package ExtUtils::MM;

use strict;
use warnings;
use ExtUtils::MakeMaker::Config;

our $VERSION = '7.58';
$VERSION =~ tr/_//d;

require ExtUtils::Liblist;
require ExtUtils::MakeMaker;
our @ISA = qw(ExtUtils::Liblist ExtUtils::MakeMaker);

=head1 NAME

ExtUtils::MM - OS adjusted ExtUtils::MakeMaker subclass

=head1 SYNOPSIS

require ExtUtils::MM;
  my $mm = MM->new(...);

=head1 DESCRIPTION

B<FOR INTERNAL USE ONLY>

ExtUtils::MM is a subclass of L<ExtUtils::MakeMaker> which automatically
chooses the appropriate OS specific subclass for you
(ie. L<ExtUtils::MM_Unix>, etc...).

It also provides a convenient alias via the MM class (I didn't want
MakeMaker modules outside of ExtUtils/).

This class might turn out to be a temporary solution, but MM won't go
away.

=cut

{
    # Convenient alias.
    package MM;
    our @ISA = qw(ExtUtils::MM);
    sub DESTROY {}
}

sub _is_win95 {
    # miniperl might not have the Win32 functions available and we need
    # to run in miniperl.
    my $have_win32 = eval { require Win32 };
    return $have_win32 && defined &Win32::IsWin95 ? Win32::IsWin95()
                                                  : ! defined $ENV{SYSTEMROOT};
}

my %Is = ();
$Is{VMS}    = $^O eq 'VMS';
$Is{OS2}    = $^O eq 'os2';
$Is{MacOS}  = $^O eq 'MacOS';
if( $^O eq 'MSWin32' ) {
    _is_win95() ? $Is{Win95} = 1 : $Is{Win32} = 1;
}
$Is{UWIN}   = $^O =~ /^uwin(-nt)?$/;
$Is{Cygwin} = $^O eq 'cygwin';
$Is{NW5}    = $Config{osname} eq 'NetWare';  # intentional
$Is{BeOS}   = ($^O =~ /beos/i or $^O eq 'haiku');
$Is{DOS}    = $^O eq 'dos';
if( $Is{NW5} ) {
    $^O = 'NetWare';
    delete $Is{Win32};
}
$Is{VOS}    = $^O eq 'vos';
$Is{QNX}    = $^O eq 'qnx';
$Is{AIX}    = $^O eq 'aix';
$Is{Darwin} = $^O eq 'darwin';
$Is{OS390}  = $^O eq 'os390';

$Is{Unix}   = !grep { $_ } values %Is;

map { delete $Is{$_} unless $Is{$_} } keys %Is;
_assert( keys %Is == 1 );
my($OS) = keys %Is;

my $class = "ExtUtils::MM_$OS";
eval "require $class" unless $INC{"ExtUtils/MM_$OS.pm"}; ## no critic
die $@ if $@;
unshift @ISA, $class;

sub _assert {
    my $sanity = shift;
    die sprintf "Assert failed at %s line %d\n", (caller)[1,2] unless $sanity;
    return;
}