1package ExtUtils::MM;
2
3use strict;
4use ExtUtils::MakeMaker::Config;
5use vars qw(@ISA $VERSION);
6$VERSION = '0.05';
7
8require ExtUtils::Liblist;
9require ExtUtils::MakeMaker;
10
11@ISA = qw(ExtUtils::Liblist ExtUtils::MakeMaker);
12
13=head1 NAME
14
15ExtUtils::MM - OS adjusted ExtUtils::MakeMaker subclass
16
17=head1 SYNOPSIS
18
19  require ExtUtils::MM;
20  my $mm = MM->new(...);
21
22=head1 DESCRIPTION
23
24B<FOR INTERNAL USE ONLY>
25
26ExtUtils::MM is a subclass of ExtUtils::MakeMaker which automatically
27chooses the appropriate OS specific subclass for you
28(ie. ExtUils::MM_Unix, etc...).
29
30It also provides a convenient alias via the MM class (I didn't want
31MakeMaker modules outside of ExtUtils/).
32
33This class might turn out to be a temporary solution, but MM won't go
34away.
35
36=cut
37
38{
39    # Convenient alias.
40    package MM;
41    use vars qw(@ISA);
42    @ISA = qw(ExtUtils::MM);
43    sub DESTROY {}
44}
45
46my %Is = ();
47$Is{VMS}    = $^O eq 'VMS';
48$Is{OS2}    = $^O eq 'os2';
49$Is{MacOS}  = $^O eq 'MacOS';
50if( $^O eq 'MSWin32' ) {
51    Win32::IsWin95() ? $Is{Win95} = 1 : $Is{Win32} = 1;
52}
53$Is{UWIN}   = $^O =~ /^uwin(-nt)?$/;
54$Is{Cygwin} = $^O eq 'cygwin';
55$Is{NW5}    = $Config{osname} eq 'NetWare';  # intentional
56$Is{BeOS}   = $^O =~ /beos/i;    # XXX should this be that loose?
57$Is{DOS}    = $^O eq 'dos';
58if( $Is{NW5} ) {
59    $^O = 'NetWare';
60    delete $Is{Win32};
61}
62$Is{VOS}    = $^O eq 'vos';
63$Is{QNX}    = $^O eq 'qnx';
64$Is{AIX}    = $^O eq 'aix';
65
66$Is{Unix}   = !grep { $_ } values %Is;
67
68map { delete $Is{$_} unless $Is{$_} } keys %Is;
69_assert( keys %Is == 1 );
70my($OS) = keys %Is;
71
72
73my $class = "ExtUtils::MM_$OS";
74eval "require $class" unless $INC{"ExtUtils/MM_$OS.pm"};
75die $@ if $@;
76unshift @ISA, $class;
77
78
79sub _assert {
80    my $sanity = shift;
81    die sprintf "Assert failed at %s line %d\n", (caller)[1,2] unless $sanity;
82    return;
83}
84