Re: File/Spec/t/rel2abs2rel2whatever broken again

[p5sagit/p5-mst-13.2.git] / lib / File / Spec.pm

diff --git a/lib/File/Spec.pm b/lib/File/Spec.pm
index 0f90a45..529e34f 100644 (file)
--- a/lib/File/Spec.pm
+++ b/lib/File/Spec.pm
@@ -9,9 +9,14 @@ my %module = (MacOS   => 'Mac',
              MSWin32 => 'Win32',
              os2     => 'OS2',
              VMS     => 'VMS',
-             epoc    => 'Epoc');
+             epoc    => 'Epoc',
+             NetWare => 'Win32', # Yes, File::Spec::Win32 works on NetWare.
+              dos     => 'OS2',   # Yes, File::Spec::OS2 works on DJGPP.
+             cygwin  => 'Cygwin');
+
 
 my $module = $module{$^O} || 'Unix';
+
 require "File/Spec/$module.pm";
 @ISA = ("File::Spec::$module");
 
@@ -75,14 +80,14 @@ forms of these methods.
 
 =over 2
 
-=item canonpath()
+=item canonpath
 
 No physical check on the filesystem, but a logical cleanup of a
 path.
 
     $cpath = File::Spec->canonpath( $path ) ;
 
-=item catdir()
+=item catdir
 
 Concatenate two or more directory names to form a complete path ending
 with a directory. But remove the trailing slash from the resulting