This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Upgrade to ExtUtils::MakeMaker 6.25
[perl5.git] / lib / ExtUtils / MM.pm
index d1b818f..5965aa2 100644 (file)
@@ -44,25 +44,24 @@ away.
 }
 
 my %Is = ();
-$Is{VMS}    = 1 if $^O eq 'VMS';
-$Is{OS2}    = 1 if $^O eq 'os2';
-$Is{MacOS}  = 1 if $^O eq 'MacOS';
+$Is{VMS}    = $^O eq 'VMS';
+$Is{OS2}    = $^O eq 'os2';
+$Is{MacOS}  = $^O eq 'MacOS';
 if( $^O eq 'MSWin32' ) {
     Win32::IsWin95() ? $Is{Win95} = 1 : $Is{Win32} = 1;
 }
-$Is{UWIN}   = 1 if $^O =~ /^uwin(-nt)?$/;
-$Is{Cygwin} = 1 if $^O eq 'cygwin';
-$Is{NW5}    = 1 if $Config{osname} eq 'NetWare';  # intentional
-$Is{BeOS}   = 1 if $^O =~ /beos/i;    # XXX should this be that loose?
-$Is{DOS}    = 1 if $^O eq 'dos';
-
-$Is{Unix}   = 1 if !keys %Is;
-
+$Is{UWIN}   = $^O =~ /^uwin(-nt)?$/;
+$Is{Cygwin} = $^O eq 'cygwin';
+$Is{NW5}    = $Config{osname} eq 'NetWare';  # intentional
+$Is{BeOS}   = $^O =~ /beos/i;    # XXX should this be that loose?
+$Is{DOS}    = $^O eq 'dos';
 if( $Is{NW5} ) {
     $^O = 'NetWare';
     delete $Is{Win32};
 }
+$Is{Unix}   = !grep { $_ } values %Is;
 
+map { delete $Is{$_} unless $Is{$_} } keys %Is;
 _assert( keys %Is == 1 );
 my($OS) = keys %Is;