File::Spec & NetWare

Message-ID: <Pine.LNX.4.43.0201031252130.27977-100000@urth.org>

p4raw-id: //depot/perl@14045

diff --git a/MANIFEST b/MANIFEST
index 0113534..6c9cc68 100644 (file)
--- a/MANIFEST
+++ b/MANIFEST
@@ -988,7 +988,6 @@ lib/File/Spec/Cygwin.pm             portable operations on Cygwin file names
 lib/File/Spec/Epoc.pm          portable operations on EPOC file names
 lib/File/Spec/Functions.pm     Function interface to File::Spec object methods
 lib/File/Spec/Mac.pm           portable operations on Mac file names
-lib/File/Spec/NW5.pm           portable operations on NetWare file names
 lib/File/Spec/OS2.pm           portable operations on OS2 file names
 lib/File/Spec/t/Functions.t     See if File::Spec::Functions works
 lib/File/Spec/t/rel2abs2rel.t   See if File::Spec->rel2abs/abs2rel works

diff --git a/lib/File/Spec.pm b/lib/File/Spec.pm
index cf49cf6..3ac1060 100644 (file)
--- a/lib/File/Spec.pm
+++ b/lib/File/Spec.pm
@@ -10,7 +10,7 @@ my %module = (MacOS   => 'Mac',
              os2     => 'OS2',
              VMS     => 'VMS',
              epoc    => 'Epoc',
-             NetWare => 'NW5',
+             NetWare => 'Win32', # Yes, File::Spec::Win32 works on NetWare.
              cygwin  => 'Cygwin');
 
 

diff --git a/lib/File/Spec/NW5.pm b/lib/File/Spec/NW5.pm
deleted file mode 100644 (file)
index 772a93d..0000000
--- a/lib/File/Spec/NW5.pm
+++ /dev/null
@@ -1,48 +0,0 @@
-package File::Spec::NW5;
-
-use strict;
-use vars qw(@ISA $VERSION);
-require File::Spec::Win32;
-
-$VERSION = '1.0';
-
-@ISA = qw(File::Spec::Win32);
-
-sub catdir {
-    my $self = shift;
-    my @args = @_;
-    for (@args) {
-       # append a slash to each argument unless it has one there
-       $_ .= "\\" if $_ eq '' or substr($_,-1) ne "\\";
-    }
-    my $result = $self->canonpath(join('', @args));
-    $result;
-}
-
-sub canonpath {
-    my $self = shift;
-    my $path = $self->SUPER::canonpath(@_);
-    $path .= '.' if $path =~ m#\\$#;
-    return $path;
-}
-
-
-1;
-__END__
-
-=head1 NAME
-
-File::Spec::NW5 - methods for NetWare file specs
-
-=head1 SYNOPSIS
-
- require File::Spec::NW5; # Done internally by File::Spec if needed
-
-=head1 DESCRIPTION
-
-See File::Spec::Win32 and File::Spec::Unix for a documentation of the
-methods provided there. This package overrides the implementation of
-these methods, not the semantics.
-
-This module is still in beta.  NetWare-knowledgeable folks are invited
-to offer patches and suggestions.