diff options
| author | Dave Rolsky <autarch@urth.org> | 2001-12-29 17:16:54 -0600 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-12-30 15:52:59 +0000 |
| commit | d17aa069f1b4912cd5ee512e17998985c6151513 (patch) | |
| tree | 69f176571d0251a6e1a38d2ebd0649e1f9e9dd9d /lib/File/Spec.pm | |
| parent | 52cbf511867518146d099147e99460321f9525ca (diff) | |
| download | perl-d17aa069f1b4912cd5ee512e17998985c6151513.tar.gz | |
Re: Win32 snag - File::Find File::Spec and Config.pm
Message-ID: <Pine.LNX.4.43.0112292305270.16562-100000@urth.org>
$^O is NetWare, not Netware.
p4raw-id: //depot/perl@13952
Diffstat (limited to 'lib/File/Spec.pm')
| -rw-r--r-- | lib/File/Spec.pm | 8 |
1 files changed, 1 insertions, 7 deletions
diff --git a/lib/File/Spec.pm b/lib/File/Spec.pm index 9d9d5b676e..cf49cf6b67 100644 --- a/lib/File/Spec.pm +++ b/lib/File/Spec.pm @@ -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"); |