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

package ExtUtils::MM;

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

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

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 ExtUtils::MakeMaker which automatically
chooses the appropriate OS specific subclass for you
(ie. ExtUils::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{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;
}

X7ROOT File Manager

Editing: MM.pm

Upload File

Create Folder