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