4 use ExtUtils
::MakeMaker
::Config
;
5 use vars
qw(@ISA $VERSION);
8 require ExtUtils::Liblist;
9 require ExtUtils::MakeMaker;
11 @ISA = qw(ExtUtils::Liblist ExtUtils::MakeMaker);
15 ExtUtils::MM - OS adjusted ExtUtils::MakeMaker subclass
20 my $mm = MM->new(...);
24 B<FOR INTERNAL USE ONLY>
26 ExtUtils::MM is a subclass of ExtUtils::MakeMaker which automatically
27 chooses the appropriate OS specific subclass for you
28 (ie. ExtUils::MM_Unix, etc...).
30 It also provides a convenient alias via the MM class (I didn't want
31 MakeMaker modules outside of ExtUtils/).
33 This class might turn out to be a temporary solution, but MM won't go
42 @ISA = qw(ExtUtils::MM);
47 $Is{VMS
} = $^O
eq 'VMS';
48 $Is{OS2
} = $^O
eq 'os2';
49 $Is{MacOS
} = $^O
eq 'MacOS';
50 if( $^O
eq 'MSWin32' ) {
51 Win32
::IsWin95
() ?
$Is{Win95
} = 1 : $Is{Win32
} = 1;
53 $Is{UWIN
} = $^O
=~ /^uwin(-nt)?$/;
54 $Is{Cygwin
} = $^O
eq 'cygwin';
55 $Is{Msys
} = $^O
eq 'msys';
56 $Is{NW5
} = $Config{osname
} eq 'NetWare'; # intentional
57 $Is{BeOS
} = $^O
=~ /beos/i; # XXX should this be that loose?
58 $Is{DOS
} = $^O
eq 'dos';
63 $Is{VOS
} = $^O
eq 'vos';
64 $Is{QNX
} = $^O
eq 'qnx';
65 $Is{AIX
} = $^O
eq 'aix';
67 $Is{Unix
} = !grep { $_ } values %Is;
69 map { delete $Is{$_} unless $Is{$_} } keys %Is;
70 _assert
( keys %Is == 1 );
74 my $class = "ExtUtils::MM_$OS";
75 eval "require $class" unless $INC{"ExtUtils/MM_$OS.pm"};
82 die sprintf "Assert failed at %s line %d\n", (caller)[1,2] unless $sanity;