1N/Apackage ExtUtils::MM;
1N/A
1N/Ause strict;
1N/Ause Config;
1N/Ause vars qw(@ISA $VERSION);
1N/A$VERSION = 0.04;
1N/A
1N/Arequire ExtUtils::Liblist;
1N/Arequire ExtUtils::MakeMaker;
1N/A
1N/A@ISA = qw(ExtUtils::Liblist ExtUtils::MakeMaker);
1N/A
1N/A=head1 NAME
1N/A
1N/AExtUtils::MM - OS adjusted ExtUtils::MakeMaker subclass
1N/A
1N/A=head1 SYNOPSIS
1N/A
1N/A require ExtUtils::MM;
1N/A my $mm = MM->new(...);
1N/A
1N/A=head1 DESCRIPTION
1N/A
1N/AB<FOR INTERNAL USE ONLY>
1N/A
1N/AExtUtils::MM is a subclass of ExtUtils::MakeMaker which automatically
1N/Achooses the appropriate OS specific subclass for you
1N/A(ie. ExtUils::MM_Unix, etc...).
1N/A
1N/AIt also provides a convenient alias via the MM class (I didn't want
1N/AMakeMaker modules outside of ExtUtils/).
1N/A
1N/AThis class might turn out to be a temporary solution, but MM won't go
1N/Aaway.
1N/A
1N/A=cut
1N/A
1N/A{
1N/A # Convenient alias.
1N/A package MM;
1N/A use vars qw(@ISA);
1N/A @ISA = qw(ExtUtils::MM);
1N/A sub DESTROY {}
1N/A}
1N/A
1N/Amy %Is = ();
1N/A$Is{VMS} = 1 if $^O eq 'VMS';
1N/A$Is{OS2} = 1 if $^O eq 'os2';
1N/A$Is{MacOS} = 1 if $^O eq 'MacOS';
1N/Aif( $^O eq 'MSWin32' ) {
1N/A Win32::IsWin95() ? $Is{Win95} = 1 : $Is{Win32} = 1;
1N/A}
1N/A$Is{UWIN} = 1 if $^O eq 'uwin';
1N/A$Is{Cygwin} = 1 if $^O eq 'cygwin';
1N/A$Is{NW5} = 1 if $Config{osname} eq 'NetWare'; # intentional
1N/A$Is{BeOS} = 1 if $^O =~ /beos/i; # XXX should this be that loose?
1N/A$Is{DOS} = 1 if $^O eq 'dos';
1N/A
1N/A$Is{Unix} = 1 if !keys %Is;
1N/A
1N/Aif( $Is{NW5} ) {
1N/A $^O = 'NetWare';
1N/A delete $Is{Win32};
1N/A}
1N/A
1N/A_assert( keys %Is == 1 );
1N/Amy($OS) = keys %Is;
1N/A
1N/A
1N/Amy $class = "ExtUtils::MM_$OS";
1N/Aeval "require $class" unless $INC{"ExtUtils/MM_$OS.pm"};
1N/Adie $@ if $@;
1N/Aunshift @ISA, $class;
1N/A
1N/A
1N/Asub _assert {
1N/A my $sanity = shift;
1N/A die sprintf "Assert failed at %s line %d\n", (caller)[1,2] unless $sanity;
1N/A return;
1N/A}