This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Re: Win32 snag - File::Find File::Spec and Config.pm
authorDave Rolsky <autarch@urth.org>
Sat, 29 Dec 2001 23:16:54 +0000 (17:16 -0600)
committerJarkko Hietaniemi <jhi@iki.fi>
Sun, 30 Dec 2001 15:52:59 +0000 (15:52 +0000)
Message-ID: <Pine.LNX.4.43.0112292305270.16562-100000@urth.org>

$^O is NetWare, not Netware.

p4raw-id: //depot/perl@13952

lib/ExtUtils/MakeMaker.pm
lib/File/Spec.pm

index a6e56b3..684bea3 100644 (file)
@@ -66,12 +66,12 @@ package ExtUtils::MakeMaker;
 #
 # Now we can pull in the friends
 #
-$Is_VMS   = $^O eq 'VMS';
-$Is_OS2   = $^O eq 'os2';
-$Is_Mac   = $^O eq 'MacOS';
-$Is_Win32 = $^O eq 'MSWin32';
-$Is_Cygwin= $^O eq 'cygwin';
-$Is_NetWare = $Config{'osname'} eq 'NetWare';
+$Is_VMS     = $^O eq 'VMS';
+$Is_OS2     = $^O eq 'os2';
+$Is_Mac     = $^O eq 'MacOS';
+$Is_Win32   = $^O eq 'MSWin32';
+$Is_Cygwin  = $^O eq 'cygwin';
+$Is_NetWare = $^O eq 'NetWare';
 
 require ExtUtils::MM_Unix;
 
@@ -86,9 +86,7 @@ if ($Is_Mac) {
     require ExtUtils::MM_MacOS;
 }
 if ($Is_NetWare) {
-       $^O = 'NetWare';
-       require ExtUtils::MM_NW5;
-       $Is_Win32=0;
+    require ExtUtils::MM_NW5;
 }
 if ($Is_Win32) {
     require ExtUtils::MM_Win32;
index 9d9d5b6..cf49cf6 100644 (file)
@@ -10,18 +10,12 @@ my %module = (MacOS   => 'Mac',
              os2     => 'OS2',
              VMS     => 'VMS',
              epoc    => 'Epoc',
+             NetWare => 'NW5',
              cygwin  => 'Cygwin');
 
 
 my $module = $module{$^O} || 'Unix';
 
-if ($^O eq 'MSWin32') {
-    require Config;
-    if ($Config::Config{osname} eq 'NetWare') {
-       $module = 'NW5';
-    }
-}
-
 require "File/Spec/$module.pm";
 @ISA = ("File::Spec::$module");