4 use ExtUtils::MakeMaker::Config;
6 our $VERSION = '6.53_03';
8 require ExtUtils::Liblist;
9 require ExtUtils::MakeMaker;
10 our @ISA = qw(ExtUtils::Liblist ExtUtils::MakeMaker);
14 ExtUtils::MM - OS adjusted ExtUtils::MakeMaker subclass
19 my $mm = MM->new(...);
23 B<FOR INTERNAL USE ONLY>
25 ExtUtils::MM is a subclass of ExtUtils::MakeMaker which automatically
26 chooses the appropriate OS specific subclass for you
27 (ie. ExtUils::MM_Unix, etc...).
29 It also provides a convenient alias via the MM class (I didn't want
30 MakeMaker modules outside of ExtUtils/).
32 This class might turn out to be a temporary solution, but MM won't go
40 our @ISA = qw(ExtUtils::MM);
45 # miniperl might not have the Win32 functions available and we need
47 my $have_win32 = eval { require Win32 };
48 return $have_win32 && defined &Win32::IsWin95 ? Win32::IsWin95()
49 : ! defined $ENV{SYSTEMROOT};
53 $Is{VMS} = $^O eq 'VMS';
54 $Is{OS2} = $^O eq 'os2';
55 $Is{MacOS} = $^O eq 'MacOS';
56 if( $^O eq 'MSWin32' ) {
57 _is_win95() ? $Is{Win95} = 1 : $Is{Win32} = 1;
59 $Is{UWIN} = $^O =~ /^uwin(-nt)?$/;
60 $Is{Cygwin} = $^O eq 'cygwin';
61 $Is{NW5} = $Config{osname} eq 'NetWare'; # intentional
62 $Is{BeOS} = ($^O =~ /beos/i or $^O eq 'haiku');
63 $Is{DOS} = $^O eq 'dos';
68 $Is{VOS} = $^O eq 'vos';
69 $Is{QNX} = $^O eq 'qnx';
70 $Is{AIX} = $^O eq 'aix';
71 $Is{Darwin} = $^O eq 'darwin';
73 $Is{Unix} = !grep { $_ } values %Is;
75 map { delete $Is{$_} unless $Is{$_} } keys %Is;
76 _assert( keys %Is == 1 );
80 my $class = "ExtUtils::MM_$OS";
81 eval "require $class" unless $INC{"ExtUtils/MM_$OS.pm"}; ## no critic
88 die sprintf "Assert failed at %s line %d\n", (caller)[1,2] unless $sanity;