Change 13952: Re: Win32 snag - File::Find File::Spec and Config.pm

[Jarkko Hietaniemi]

Change 13952 by jhi@alpha on 2001/12/30 15:52:59

        Subject: Re: Win32 snag - File::Find File::Spec and Config.pm
        From: Dave Rolsky <[EMAIL PROTECTED]>               
        Date: Sat, 29 Dec 2001 23:16:54 -0600 (CST) 
        Message-ID: <[EMAIL PROTECTED]>
        
        $^O is NetWare, not Netware.

Affected files ...

.... //depot/perl/lib/ExtUtils/MakeMaker.pm#75 edit
.... //depot/perl/lib/File/Spec.pm#20 edit

Differences ...

==== //depot/perl/lib/ExtUtils/MakeMaker.pm#75 (text) ====
Index: perl/lib/ExtUtils/MakeMaker.pm
--- perl/lib/ExtUtils/MakeMaker.pm.~1~  Sun Dec 30 09:00:05 2001
+++ perl/lib/ExtUtils/MakeMaker.pm      Sun Dec 30 09:00:05 2001
@@ -66,12 +66,12 @@
 #
 # 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 @@
     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;

==== //depot/perl/lib/File/Spec.pm#20 (text) ====
Index: perl/lib/File/Spec.pm
--- perl/lib/File/Spec.pm.~1~   Sun Dec 30 09:00:05 2001
+++ perl/lib/File/Spec.pm       Sun Dec 30 09:00:05 2001
@@ -10,18 +10,12 @@
              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");
 
End of Patch.